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An Apple IIc 


he Apple IIc on the right works exactly the same as the 

irre IIc on the left. Almost. The Apple on the right has a 
powerful memory expansion coprocessing card called Z-RAM. 
From Applied Engineering. Which means the Apple on the 
right can completely load AppleWorks into RAM—and then 
run it up to thirty times faster than the Apple on the left. 

Z-RAM also acts as a solid-state disk drive. Which means 
the Apple on the right will load and store programs up to 
30 times faster. And, our included RAM disk is compatible 
with Applesoft, PRO-DOS, DOS 3.3, PASCAL and CP/M. 


Turbo Charged AppleWorks. 
Even a 256K Z-RAM can completely load AppleWorks 
into RAM. With Z-RAM, the moment your fingers touch the 
keyboard AppleWorks responds. A 256K Z-RAM lets your 
IIc run AppleWorks up to 30 times faster, increases available 
desktop to 235K and maximum number of records from 1,350 
to over 16,000, doubles the number of lines allowed in the 
word processor, provides a print spooler, and auto- 
segments large files so they can be saved on two or 
more disks. A 512K Z-RAM boosts AppleWorks 
desktop to an incredible 425K. 


Take a closer look. 

There's more. Z-RAM has a built-in high speed 
Z-80B microprocessor that allows you to run CP/M 
programs. Which means you now have access to the 
single largest body of software in existence, including 
popular packages like WordStar, dBase II, Turbo PASCAL and 
Microsoft BASIC. A 16 bit option is also available. 


And still more. Z-RAM is compatible with all IIc software and 


hardware, installs easily in just ten minutes with a screwdriver 
(slightly longer without), is available with 256K or 512K of 
additional memory (a 256K Z-RAM can be upgraded to 512K at 


An Apple Ic with Z-RAM 


any time ). Z-RAM is easily handled by the Ic power supply with 
our patent pending power saving design. 

The only thing better than that would be a recommendation 
from Steve Wozniak. 


‘IT recommend Applied 
Engineering products whole- 
heartedly.” (Of course, Steve's Hc 


has a Z-RAM installed.) 


Steve Wozniak, the creator 
of Apple Computer 


For fast response. 

Z-RAM comes complete with simple instructions, RAM disk 
software, Z-80 operating system, CP/M manual. And a five year 
“hassle free” warranty. Make a good Apple great. With 

256K Z-RAM “384K total” ($359); with 512K “640K total” 
($419); 16 bit option may be added later ($89). 
If you want to run CP/M software, but don’t need 
more memory, we suggest our Z-80c card. The Z-80c 
has no memory expansion ports and is priced at 
only $159. 
Call 214-241-6060 TO ORDER TODAY. 9 a.m. to 
1] p.m. Seven days, or send check or money order 
to Applied Engineering. MasterCard, Visa and C.O.D. 
welcome. Texas residents add 5%% sales tax. Add $10.00 
outside U.S.A. 


Va al Applied Engineering 
P.O. Box 798, Carrollton, TX 75006 
(214) 241-6060 


firepower 


CH II™ and MACH III™ JOYSTICKS 
The second generation MACH II and MACH 
Joysticks incorporate a new slide-switch spring 
disconnect feature that requires no stick deflection 
nd new rotary trims which are four times more 


on, electrical trims for each axis, two fire 
on the deck of the control and a stainless 


applications provide iors 
id a life cycles. 


PADDLESTICKS™ 

PADDLESTICKS are a new and unique 
paddle control design that promises to return the 
fun and excitement back to paddletype games. 
They are faster, easier to operate and less fatiguing — 
than conventional-type paddles. The 
PADDLESTICKS operate as a single-axis joystick 
and are currently plug-in compatible with the 
Apple II, ITE and IIC personal computers. 
$44.95 (pair) : 
We manufacture a complete line of OEM Joysticks for industrial applications. Dealer 
and OEM inquiries invited. Apple Il, IIE, 11C, IBM PC, PCjr and TRS-80 are registered - 


trademarks of Apple Computer Inc., International Business a and Tandy 
respectively. a 
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12 A Welcome to New Nibble Readers 


FEATURES 


14 TURTLE BASIC 
by J.B. Ward 
Talk turtle with your Apple! This utility adds turtle graphics com- 


mands to Applesoft for easy, fun graphic designs. Special keywords 
direct the turtle around the screen. 


NIBBLE CALCULATOR 
by Newton Saiyuen Lee 
Turn your Apple into a full-function, programmable calculator. 


This super calculator features a range of built-in arithmetic and 
trig functions, plus provisions for five user-defined programs. 


TANK COMBAT 
as by Rudy A. Guy 


cover art by Don Demers Page 14 


Play against the computer in a deadly simulation of World War II 
tank combat. Strategy and foresight are key as you maneuver to 
defend your HQ, ammo dump and fuel depot against enemy fire. 


71 PROCURSOR 
by Jim Lazar 


Return to the days of the blinking box cursor! Customize your //e 
or /e with a solid box cursor, or choose another character instead. 


DISPLAY 
by Ken Manly 


Take a peek at your VAR files. This ProDOS VAR file reader lists 
the names and values of all the real, integer and string variables 
in your Applesoft programs. 


USER VIEWS 


GAMES! 
Reviewed by John DiPrete 


Enter the world of high-stakes real estate, cast spells with a wish- 
ing stone, solve a crime and man a space station. It’s all in a day’s 
play for seven new games that range from interactive fiction to 
educational software. 
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Address all editorial, advertising and subscription inquiries 
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all manuscripts, drawings and photographs submitted if they 
are to be returned, and no responsibility can be assumed for 
unsolicited materials. All letters sent to NIBBLE will be treated 
as unconditionally assigned for publication and copyright pur- 
poses and as subject to NIBBLE’s right to edit and comment 
editorially. All rights reserved. Nothing may be reprinted in 
part or in whole without written permission from the pub- 


lisher. The editorial board assumes no liability or responsi- 
bility for the products advertised in this magazine. 


NIBBLE will replace lost copies for 60 days following the pub- 
lication date. Beyond 60 days, we cannot be responsible for 
mail loss. 
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93 PART V: FIRST COUSINS ONCE REMOVED 
by S. Scott Zimmerman 
Learn how to use 65C02 addressing modes in your own programs. 
Demonstration programs show you how to implement arrays, print 
messages to the screen and use the ampersand vector. Plus the 


author gives valuable tips and examples of how to use ROM 
routines. 


PRODOS DIRECTORY LIST 
by Keith Stattenfield 


Catalog every file on your ProDOS disks. Instead of cataloging 
each subdirectory separately, this nifty program lists all the files in 
every subdirectory on any ProDOS disk. 


PRODOS OUTPUT PROCESSING 
by Sandy Mossberg 


Unravel the complexities of the ProDOS BASIC Interpreter. In this 
installment, Sandy Mossberg takes on the output handling routines 
and provides a fix for a BI bug. 


HARDWARE CONSTRUCTION PROJECT 


NIBBLE LIGHT PEN 
by David Gauger II 
Assemble your own light pen for fast, simple screen input. All you 


need are $10 worth of parts, a short machine language routine 
and our construction tips. 


109 
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130 
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5 VIEWPOINT 
7 LETTERS 


Page 140 


138 ASK NIBBLE by Cecil Fretwell 

Nibble’s expert answers the tough questions posed by readers. 
140 ON THE SCENE Edited by Mary Locke 

The latest in new hardware and software product releases! 
144 PRODUCTS AND SERVICES INDEX 
157  nibbLEADS CLASSIFIEDS 
160 ONE-LINER AND TWO-LINER WINNERS 


MicroSPARC Ine. Limited License for the 


In Germany, dealer inquiries should be directed to: Interna- 
tional Presse, Borsigalle 17, D6000 Frankfurt, 60 WG. Tel: 
(069) 419 198. 

or: 


Pandasoft, Uhlandstr 195, 1000 Berlin 12, Germany. Tel: (030) 
310 423. 


Use of the Programs in Nibble Magazine 


MicroSPARC Ince. is the owner of all rights in the computer 
programs printed in this magazine. To allow for their use by 
the purchaser of this magazine, MicroSPARC Inc. grants to 
such purchaser, only, the Limited License (1) to enter these 
programs into the purchaser’s computer, and (2) to place such 
computer programs on a diskette for personal use. 


Any other use, sale, distribution or copying of these computer 
programs without the written consent of MicroSPARC Inc., 
or obtaining, or purchasing copies of these computer programs 
other than from MicroSPARC Inc. or its authorized distribu- 
tors is in violation of this Limited License and is expressly 
prohibited. 
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THE X-10 POWERHOUSE =“ 
INTERFACES WITH YOUR APPLE 

TO CONTROL YOUR HOME...FOR SECURITY, 
COMFORT AND ENERGY SAVINGS. 


This remarkable Interface lets you run your home through your 
Apple lle or Ilc and a mouse, keyboard or joystick. 


When you’re away, it makes your home look and sound lived in. 
When you’re home, it can turn off the TV at night and wake you 
up to stereo and fresh brewed coffee in the morning. It can 
even turn on your air conditioner and control your heating. 


SPECIAL COLOR GRAPHICS MAKE PROGRAMMING A SNAP. 
You simply pick a room from the display screen. Use your 
mouse, joystick or keyboard 

to position graphics of lights 

or appliances. Then follow 

on-screen instructions to 

program any light or appli- 

ance to go on or off when- 

ever you choose. You can 

even control thermostats, CHOOSE 
light intensity and more. 


THE WAY IT WORKS. The X-10 Powerhouse Interface is cable- 
connected to the Apple RS-232 port and plugged into a standard 
110V outlet. After it is programmed, the Interface sends digitally 
encoded signals through your home wiring to special X-10 
Modules. To control a lamp or appliance, you simply plug 

the electrical device into a Module and then plug the Module 


THE X-10 
POWERHOUSE 
DOES 
EVERYTHING 
BUT PUT OUT 


THE CAT. 


Model CP290 


into an outlet. The Interface can control 
up to 256 Modules throughout your home 
and won't interfere with normal use of 
lights and appliances. 

There are plug-in Appliance Modules, 
Lamp Modules, Wall Switch Replacement 
Modules and Special 220V Modules for 
heavy duty appliances such as water 
heaters and room air conditioners. Plus 
Thermostat Controllers for central heating and air conditioning, 
Telephone Responders to control your home from any phone, 
and much more. 


IT WON’T TIE UP YOUR COMPUTER. Use your computer only 
for programming. When you're finished, disconnect the Inter- 
face from the RS-232 port and keep it plugged into any con- 
venient power outlet in your home. It will operate as a 
stand-alone controller with battery back-up and will run your 
home automatically. 


SURPRISINGLY INEXPENSIVE. A Powerhouse System includ- 
ing the Interface, software and connecting cables costs less 
than $150. X-10 Modules are less than $20 each. 


For the Dealer Nearest You Call: 1-800 526-0027 
or, write to: X-10 (USA) ee: peas 
185A Legrand Avenue 
Northvale, NJ 07647 


—___ 


X10’ POWERHOUSE 


NUMBER ONE IN HOME CONTROL 


Apple, Apple lle and Apple IIc are registered traccnarks of Apple Computer, Inc 
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CUTE CLC CCL 


ith this issue, we begin our 
seventh year of publication. We’ve also reached a major milestone: 
with this issue, we expect to exceed 100,000 immediate circula- 
tion for the first time in Nibble’s history. Thank you for helping 
to make it happen! Your encouragement and support have kept us 
going when other, far larger magazines have foundered and failed. 
We were particularly saddened to see the demise of Creative Com- 
puting and Popular Computing this past year. 


ELEPHANTS 

Elephants have big appetites. That applies to businesses too. One 
of the unwritten business guidelines that we used to hear about when 
I worked for Xerox was: ‘‘We’re not interested in any business 
that produces less than $100 million of annual revenue.”’ 

In a recent interview, David Ahl claimed that he projected a mil- 
lion dollar profit for Creative Computing a short time before the 
decision was made to cease publication. He said that he wasn’t sure 
whether the decision makers didn’t believe him or thought it wasn’t 
enough. 

When the decision was made to kill Popular Computing, the staff 
had just moved into a new $1.2 million headquarters building, and 
the magazine claimed a paid circulation of more than 300,000. It 
either wasn’t big enough or wasn’t profitable enough to survive. 

In the last several years, more than 50 computer magazines have 
ceased publication. The battlefield is littered with big names. It’s 
happening in software as well. 


ANTELOPES 

Antelopes are fast, little creatures. They don’t eat a lot — at least 
not as much as elephants. They have no excess bulk. They are sur- 
vivors. A company that’s an antelope is delighted to sell 3,000- 
5,000 software packages a month. An elephant thinks that kind of 
performance spells failure. 

Stewart Alsop, formerly with InfoWorld, made an insightful com- 
parison between Lotus and MicroSoft. He pointed out that Lotus 
hasn’t figured out how to make money with small products. Micro- 
Soft has. What Lotus does with six products (and really with 1-2-3 
as the predominant product), MicroSoft does with more than 30 
products. Lotus is looking more and more like an elephant, while 
MicroSoft appears to be a herd of antelopes. 


THE OPPORTUNITY WEDGE 

A classic management model states that OPPORTUNITIES ARE 
CONTINUOUSLY CLOSING. It applies to a wide variety of busi- 
ness and personal experiences, and it can be represented as a wedge 


like this: 


A B ¢ 


Point A is the beginning of an opportunity. When VisiCorp popu- 
larized the spreadsheet, there were no spreadsheets on the market. 


VIEWPOINT 


The opportunity was huge, and VisiCorp capitalized on it with 
almost no competition. But the opportunity began to shrink. 

At point B, the opportunity is maturing. Competition, market sat- 
uration, product obsolescence, bad pricing, and a myriad of other 
market forces enter into the picture. 

Point C is the disappearance of the opportunity. At this point the 
profit or market is no longer big enough for survival. 


NEW WEDGES 
Of course, the wedge can be made to move by introducing new 
technology, creativity and market product development. 


| 


The double wedge defines a Lotus-like phenomenon with one 
product dominating the financial/market scene. It remains to be seen 
whether the second wedge will be of Lotus’ creation or whether 
it will be created by another company (repeating the VisiCalc 


phenomenon). : 


This wedge defines an equally large opportunity that is constructed 
of many smaller, more diverse opportunities. It is most represen- 
tative of companies like MicroSoft and a host of other smaller com- 
panies that survive and thrive on a variety of small enterprises. 


NIBBLE. .. MANY WEDGES 

Nibble is made up of many wedges. Circulation, advertising and 
more than 150 software products all fit into a supportive relation- 
ship that keeps the lights burning. This strategy of controlled, diver- 
sified growth has enabled us to survive and prosper while a lot of 
elephants have starved. 

Several years ago, we had two opportunities to be acquired by 
much larger publishing companies. The offers were tempting, since 
they would have made my family financially independent for life. 
And an acquisition held the promise of a major infusion of resources 
that would make Nibble the biggest Apple magazine in the market. 

Today, I am convinced that if we had allowed ourselves to be 
acquired, we would no longer be in business. The weekend that 
I had to reach a decision, I went out into the yard, sat under a tree 
and thought about priorities. I thought about you, our readers and 
advertisers. I thought about our employees — some of the finest 
in the business. And I thought about how elephants live and die. 

As we enter our seventh year of publication, let me thank you 
once again for helping us keep the antelope spirit and vitality. 


the 
Mike Harvey 
Publisher 


January 1986 © Nibble Magazine 5 


New Dimensions 
Of Sound 
From Your Apple 


MOCKINGBOARD A is a stereo music and sound synthesizer 
with six voices. Suggested retail price $99.00. This model can 
be upgraded for speech synthesis with the purchase of a 
MOCKINGBOARD B speech upgrade. Suggested retail price 
$89.00. 


MOCKINGBOARD C is all of the above in one package. 
Suggested retail price $179.00. Mockingboard A, B and C are 
compatible with the Apple II, Il+ and Ile. 


MOCKINGBOARD D is a stereo music, sound and speech 
synthesizer for the Apple IIc. Suggested retail price $195.00. 


THE DEVELOPERS’ TOOLKIT provides easy-to-use software 
allowing you to incorporate music, sound and speech into your 
own BASIC programs. In addition, the Toolkit contains 
numerous other helpful utilities to simplify programming and 
make learning fun. Retails for $29.95 


SPEECH DEVELOPMENT SYSTEM you can easily create 
customized speech at home using simple bar charts to change 
speed, volume and even inflection. Retails for $39.95. 


FOREIGN LANGUAGE RULE TABLES allow your computer to 
speak to you in French, German and proper British English. 
Retails for $24.95. 


*The new Mockingboard D supports Music Construction Set at the time this ad was sent 


to press. Check with your dealer for new titles that are being written for this Mockingboard. 


To hear Mockingboard perform, visit your local dealer or call 
(401) 941-1130. For the name of your local dealer that 
carries Mockingboard, call 1 (800) 341-8001. 


Apple™ is a registered trademark of the Apple Computer Company. 


Boe ING-BOARD) 


SWEET MICRO SYSTEMS, INC. 
50 Freeway Drive, Cranston, RI 02920 
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ETTERS 


Foolproof Exhumation 

I think I’ve discovered a bug in Sandy 
Mossberg’s EXHUME.FILE program, 
(‘Recovering Deleted ProDOS Files,’’ Vol. 
6/No. 10). If I rename a file to a shorter file 
name (e.g., RENAME LONGFILE,LONG) 
and then delete the file, EXHUME.FILE is 
unable to recover it. Also, EXHUME.FILE 
can’t restore a file once the disk has been 


renamed using FILER. What gives? 


Gino Fortunato 
Baton Rouge, LA 


Sandy Mossberg replies: 


Right you are, Gino. My shortsightedness 
about renamed files has created unneeded 


explanation for the cause of the malfunction, 
I shall provide a short fix. 

Within each file header or entry, the file 
name field (FNF) consists of 15 bytes. The 
low order nibble of the preceding byte con- 
tains the length of the file name (NLF). 
When a file is created, its name and name 
length are placed within the FNF and NLF, 
respectively. 


frustration. After expanding upon your 


No printer interface card 
ever sounded this good 


RC System’s Slot-Buster™ is the single card solution for “ 


all of your Apple's interface needs. The Slot-Buster N 

enables you to use two printers simultaneously with up to 

24K of buffering, replacing two printer and two buffer cards. 

And with our upcoming low-cost dual buffer expansion card, you can enjoy up to 280K of high speed print buffer- 
ing, saving you even more time and money. 


SLOT-BUSTER™ 


The Slot-Buster’s advanced speech and sound synthesizer will bring new life to your programs, old and new alike. 
Computer voice output has always been the talk of the future, but the Slot-Buster brings it to your Apple today 
with style. In fact, it’s so easy to use that you can have many of your programs talking the same day you install 
your Slot-Buster! 


Features 

¢ Buffered intelligent parallel and serial 
printer interfaces 
Compatible with virtually all printers 

¢ High quality speech synthesizer outperforms 
others costing many times more 

¢ Built in text to speech translator 

¢ Speaks in any language (English and Spanish 
included) 


Does not render other slots unusable 
like other multi-function cards do 

¢ Requires NO program memory to operate 
Compatible with all business, graphics, 
education, and entertainment software 
Menu-driven utility software included 
Two-year “no hassle” limited warranty 


The Slot-Buster is a product of 


CIRCLE NUMBER 3 5 . 
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LISTING 1: TANK.COMBAT (continued) 


32208 
3230 
3248 
3258 
3268 
3278 
3280 
3298 
33908 
" 3310 
aoe 3320 
e@ADALAB™ data acquisition system interfaces with virtually any lab 3330 
instrument using a recorder or meter, including GC and HPLC systems, 3340 
spectrophotometers, pH meters, process control aparatus, thermo- 3350 
couples, etc. Thousands of scientists use IMI products worldwide! 
eLab Data Manager™ software ($250) facilitates single or multi-channel oe 
acquisition, storage, display and chart recorder style output of lab 
instrument data. 
*$2290 price includes 64K APPLEf Ile, disk drive with controller, 12" monitor; dot matrix 3380 
printer with interface; IMI ADALAB™ interface card. 3399 
$495 ADALAB™ INTERFACE CARD (available separately) 
includes 12-bit A/D, 12-bit D/A, 8 digital sense inputs, 8 
digital control outputs, 32 bit real-time clock, two 16-bit 3400 
NEG timers plus QUICKI/O data acquisition software that 3419 
APPLE works within easy-to-use BASIC. 3429 
Owners Call, write or telex IMI for complete details! 
t Trademark of Apple Computer, Inc. 
3438 
a) @ mw INTERACTIVE MICROWARE, INC. 3449 
| P.O. Box 139, Dept. 1 Telex: 705250 3459 
BADE State College, PA 16804 (814) 238-8294 || 
CIRCLE NUMBER 28 
APPLE(II+)WORKS™ an 
3480 
PLUS-WORKS™ “— 
It really works! 
PLUS-WORKS not only allows you to have all features of Hts 
AppleWorks™ on an Apple II™, II+ or compatible, but our 3530 
extended memory versions give you capabilities far beyond 3540 
the standard Ile/c versions. Its great for expansion on the 
Apple He as well. 3550 
Compare these features with other AppleWorks patch programs 3568 
© Copyable - make backups, transfer to hard disk 3570 
¢ Up to | megabyte of desktop space available 
e Database expansion to more than 4,200 records 3580 
e All control codes available to printer 3590 
e Supports Franklin computers and all ASCII keyboards 3600 
¢ Supports all major 80 column cards 
e Permanent and dynamic ram disk features 
e All versions of AppleWorks supported 3610 
e Expand AppleWorks desktop into CP/M ram cards 3620 
e Optional patch to help with printer problems 3630 
*SPECIAL OFFER* Thru March 1, 1986, send us our com- 
petitor’s II+ modifier for AppleWorks (original disk or proof 
of purchase required) for a $20.00 credit towards the pur- 3640 
chase of our XM or XMP programs. 3650 
e PLUS-WORKS - $19.95 plus $3.00 ship/hand. Requires 
AppleWorks, 64K Apple II+ or compat, 80 col card and shift 3660 
key mod. Maximum desktop 10K. You may upgrade to XM 3679 
or XMP for $30.00 at any time. 3689 
¢ PLUS-WORKS-XM & XMP- $49.95 plus $3.00 Ship/hand. 3698 
XM requires same as above with legend, saturn, or compatible 7 
ram card (A.P.P.L.E. Big board, know Drive, prometheus, etc) 3708 
or Apple Ile with ramcard. XMP requires CP/M card with 64K 3710 
ram (ALS, PCPI or Micropro). 3720 
MC/Visa add 4% Orders only 1-800-221-3826 
Information & New Jersey residents call 516-922-9584 
or send check or money order to: 
Norwich Data Services Ltd. 3738 
P.O. Box 356 « East Norwich, NY 11732-0356 3748 
NYS residents add appropriate sales tax 
Dealer inquiries invited 37508 
Apple & AppleWorks are trademarks of Apple Computer Inc. 


PLUS-WORKS is a trademark of Norwich Data Services Ltd. 
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FOR I = 8 TO 1 STEP - 1: FOR J = 1 TO 
18: GOSUB 3538 


IF N = 2 AND A$(I,J) = "" THEN A$(I,J) = 
"ML" FE = FE + da IF Fe = 6 THEN T= led 
= 18 

NEXT JI IF FL. < 6 THEN 3229 

FL = © 


FOR 1 = 3 TO'1 STEP = 1: FOR’ J = 2 TO 
18: GOSUB 3538 

IF N = 1 AND AS(I,J) = "" THEN FL = FL + 
1:A$(1,J) = STRS (FL) + “C"2XCCFL) = IT: 
YC(FL) = J: IF FL = 6 THEN I = 1:J = 18 
NEXT J,I: IF FL < 6 THEN 3260 

FOR I = 1 TO 3: FOR J = 1 TO 18 

IF VAL (A$(I,J)) > @ THEN XDRAW 36 AT 
J 14.¥ 4 (1 #9) 

NEXT J,I 

REM HUMAN LOCATIONS 

POKE 34,20: HOME 

REM PLACE HQ 
OB$ = "HQ": GOSUB 4120:RS = 16:RE = 9:R = 
16:C = 1:SH = 32:A$ = "K": GOSUB 3718 
A$(R,C) = "HQ2" 
OB$ = "AMMO DUMP": GOSUB 412@:RS = 16:RE 
= 9:R = 16:C = 1:SH = 33:A$ = "K": GOSUB 
3710 
AS(R,C) = "AD2" 
OB$ = "FUEL DEPOT": GOSUB 4120:RS = 16:R 
E = 9:R = 16:C = 1:SH = 34:A$ = "K": GOSUB 
3710 
AS(R,C) = "FD2" 

FOR K = 1 TO 6 
OB$ = "TANK MINE #" + STR$ (K): GOSUB 4 
120:RS = 16:RE = 9:R = 16:C = 1:SH = 19: 
AS = "K": GOSUB 3710 
A$(R,C) = "MI2" 
NEXT 

FOR I = 1 TO 6:C 
(1): GOSUB 4129 


1:0B$ = "TANK #" +  STR$ 


RS = 16:RE = 14:R = 16:C = 1:SH = 31:A$ = 

"K": GOSUB 3718 

A$(R,C) = STR$ (I) + "H":XH(1) = R:YH(I 
=C 

NEXT 


FOR I = 9 TO 16: FOR J = 1 TO 18 

IF A$(I,J) = "MI2" THEN XDRAW 19 AT J 
i4,V + Gl #9) 

NEXT J,I 

RETURN 

REM PICK RND NO. 
N = INT ( RND ( PEEK (78) + PEEK (79) 
256) « NU) + 1 

RETURN 

REM DRAW AND ERASE TANK MINE 

FOR D = 1 TO 18: XDRAW 19 AT C « 14,Y + 
(R *« 9): FOR E = 1 TO 5@: NEXT : NEXT : RETURN 


REM SHOW WHERE SHOT LANDED (COMPUTER) 
CALL 768 

FOR D = 1 TO 28: XDRAW 35 AT CY(I) * 14 
,¥ + (CX(I) * 9): FOR E = 1 TO 58: NEXT 
E,D: RETURN 

REM SHOW WHERE SHOT LANDED (HUMAN) 
CALL 768 

FOR D = 1 TO 28: XDRAW 35 AT HY(I) «* 14 
,Y + CHX€T) « 9): FOR E = 1 TO 58: NEXT 
E,D: RETURN 

FOR D = 1 TO 3098: NEXT : RETURN 

HTAB 21 - LEN (M$) / 2: PRINT M$: RETURN 


FOR X = 768 TO 781 

READ Y: POKE X,Y: NEXT 

RETURN 

DATA 168,208,169 ,58,32,168,252,173,48,19 
2,136,288,245,96 

REM MOVE SHAPES ON SCREEN USING I-J-K- 
M AND <SPACE>. 

IF SH = 37 THEN GOSUB 4858: GOTO 3798 

IF SH = 31 THEN IF A$(R,C) = "B" OR’ RIGHT$ 
(A$(R,C),1) = "H" OR’ RIGHT$ (A$(R,C),1) 
= "C" THEN 3859 

IF FL THEN FL = 8: GOTO 3728 

IF SH = 19 THEN IP LEFTS GAS(RC),1) = 
"M" THEN 3858 

IF FL THEN FL = 8: GOTO 3748 


a SSS SE ERE Vy SE SEES SB SS 


should have provided a program with Apple- 
Works for easy conversion of Applewriter 
and other text files to AppleWorks word 
processor files. Such a conversion program 
is provided with the database to convert 
Quickfile data. 

The process for converting DOS 3.3 text 
files, like those created using Applewriter, 
is not self-evident, involves several steps, 
and you must own a copy of ProDOS. Here 
is my method: 


1. Write down the names of the DOS 3.3 
text files that you wish to convert. Boot 
the ProDOS User’s Disk and choose F 
(ProDOS Filer), then V (Volume Com- 
mands). Next, choose F (Format a 
volume). Type in and write down the 
new volume name (the prefix). Remove 
the ProDOS User’s Disk or set the for- 
matting for drive 2, insert a fresh disk 
and proceed to format it. 

2. Replace the ProDOS User’s Disk. Go 
back to the main menu (via Quit or by 
rebooting) and select C (the conversion 
option). At this point, if you are unfa- 
miliar with the use of the conversion pro- 
gram, type a question mark to display 
instructions. 

3. Remove the ProDOS User’s Disk and 
insert the DOS 3.3 and ProDOS for- 
matted disks, as shown under ‘‘Direc- 
tion’’. Be sure that the slot and drive 
numbers are set correctly in the conver- 
sion program (if not, use C to change 
them). Set the ProDOS prefix using 


ERRATA AND 
ENHANCEMENTS 


AUCOUNOONOUOAUEDEOUODOODONOAOUAOODACONDUOGODUEOOONOADOEOAUOUOOEONUOONOODOOOOOUEOUOOOOUEDOOUEERIEOONE 


Attention Telecommunicators: Now 
you can receive errata notices and 
other goodies quicker than ever on the 
1200/300 baud Nibble Hot Line. Have 
your Apple call our Apple at 617-369- 
8920. Your communications software 
should be set at 8 data bits, 1 stop bit, 
no parity, full duplex. The Hot Line 
will automatically determine the cor- 
rect baud rate. 


Super Shopper (Vol. 6/No. 11, p. 22): To 
fix a problem with Epson printers not en- 
tering 132-character mode, change line 290 
as follows: 


298 P132$ = CHR$(15) 


Nibble MeterMan (Vol. 6/No. 10, p. 28): 
To fix a problem with the printout of the 80- 
column screen, eliminate the semicolon in 
line 1890. 


menu option P, and type in the prefix 
you gave in number | above. (Use the 
<RETURN> key to eliminate any 
extra characters in the prefix). Check to 
see that the arrow is set correctly for the 
direction of the conversion — if it is not 
correct, use R to correct it. 


. Choose option T to transfer the files 


from the DOS 3.3 disk to the ProDOS 
disk and proceed to transfer the files 
according to the directions you read in 
step 2 above. If you have forgotten the 
file names to be transferred, enter a 


THE FINAL WAR 


The date is 1944, a week 
after D-day. The place is 
Cherbourg, France, a few 
miles from the Normandy 
beaches. The commotion is 
Rescue Raiders, an amazing 


new game that combines 
fast arcade action with 
strategy and tactics. 


As commander of the Allied 
forces, you must marshall 
troops, deploy weapons and 
mastermind a military cam- 
paign. 


RESCUE RAIDERS has the 
subtle Sir-tech touches that 
keep you coming back for 
more. Vehicles, aircraft and 
missles move realistically 
and conform to the laws of 
physics. And the computer- 
command enemy is intelli- 
gent. . . and cunning. Quick 
reflexes are important and 
so is the ability to plan long- 
range strategies. 


Every battle you fight, every 
time you play this epic is 
refreshingly new and differ- 
ent. And, win or lose, you'll 
get a history lesson. 


question mark instead of the file names 
to display a catalog of the disk files. The 
transfer option converts DOS 3.3 ASCII 
text files to ProDOS ASCII text files. 
However, an extra step is required to 
convert the latter to AppleWorks word 
processor (WP) files. Remove the DOS 
3.3 disk and place the new ProDOS text 
disk in drive 2. 


. Boot AppleWorks. Choose the ‘‘Add 


Files’’ option and ‘‘Make a new file for 
the Word Processor.’’ Then choose op- 
tion 2 for a text (ASCII) file. 


continued on page 146 
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Meet RamWorks IT 


The Recognized Industry Standard For Memory 
Expansion of the Apple He. 
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RamwWorks IL. A Generation Ahead. Again. 


he best selling expansion card for 

the Apple Ile just got even better. 
With RamWorks II, expand your Ile to an 
incredible 3 megabytes of usable RAM. 


Turbo Charged AppleWorks. 

RamWorks II plugs into the Ie 
auxiliary slot and acts just like Apple’s 
extended 80 column card, only better— 
because if you buy a 256K or larger 
card, AppleWorks will automatically load 
itself into RamWorks II. This dramatically 
increases AppleWorks’ speed and power 
because it effectively eliminates the time 
required to access disk drive 1. Now, 
switch from word processing to 
spreadsheet to database management at 
the speed of light. AppleWorks responds 
the moment your fingers touch the 
keyboard. 

But AppleWorks has certain internal 
limits, independent of available memory. 
Fear not. Only RamWorks II (and the 
original RamWorks of course) removes 
those limits. Only RamWorks II increases 


the maximum number of records 
available from 1,350 to over 16 000. Only 
RamWorks II actually increases the 
number of lines permitted in the word 
processing mode. And only RamWorks II 
features a built-in printer buffer, so you 
no longer have to wait for your printer 
to stop before going back to AppleWorks 
(256K or larger RamWorks II required). 

With RamWorks II, you won't have to 
split your data into 2 or more separate 
files because you'll have the necessary 
memory to access ALL your data ALL the 
time, quickly and conveniently. 


AppleWorks 
RamWorks Il Desktop 

128K 101K 
256K 188K 
512K 378K 

1 MEG 758K 

1.5 MEG 1136K 

3 MEG 2277K 


The Most Friendly, Most 
Expandable Card Available. 


RamWorks II is compatible with more 
offthe-shelf software than any other 
RAM card. Popular programs like 
Advanced VisiCalc, Magic Office System, 
Flashcalc, The Spread Sheet, Diversi- 
DOS, Supercalc 3A, Magicalc, etc. (and 
hardware add-ons like Profile and Sider 
hard disks ). Fact is, only RamWorks is 
100% compatible with all software 
written for the Apple 80 column and 
extended 80 column cards. In addition, 
RamWorks II can emulate most other 
RAM cards, so you can use programs 
written for them without modification. 
And any size RamWorks II can be user 
upgraded later to any larger size. 

RamWorks II was designed so you 
could take full advantage of future 
developments in 16 and 32 bit 
microprocessors. As your needs grow, so 
can RamWorks II. A handy coprocessor 
connector allows the latest and greatest 
coprocessor cards to access all 3 MEG 


of RamWorks II memory. And speaking 
of more memory, RamWorks II has a 
memory expansion connector on board 
so a low profile (no slot 1 interference) 
memory expansion card can add 
another 512K or 2 MEG of memory. 

Unlike Apple’s smaller, more 
expensive RAM card, RamWorks II plugs 
into the Ile auxiliary slot and therefore 
leaves slots 4 and 5 available for other 
peripheral cards. 


It’s In Color 

RamWorks II by itself is fza//y 
compatible with both the Apple 
monochrome and color monitors. But 
if you want better color graphics pilus a 
more readable 80 column text (that 
blows away any composite color 
monitor) you'll appreciate our RGB 
color option. For only $129, it can be 
added to RamWorks II, giving you 
a razor sharp, vivid brilliance that’s 
unsurpassed in the industry. The RGB 
option does not waste another valuable 
slot, but rather plugs into the back of 
RamWorks II with no slot 1 interference 
(works on the original RamWorks, 
too) and attaches to virtually any RGB 
monitor. And remember. You can order 


the RGB option with your RamWorks II. 
Or add it on at a later date. 


It Corrects Mistakes. 


Let’s say you bought some other RAM 
card (and that’s a mistake) and your 
RAM card is not being recognized by 
AppleWorks, Advanced Visicalc, 
Flashcalc, Supercalc 3A, or other 
programs, and you want RamWorks II. 


No problem. The memory 
chips on the card that you 
now have, which is where 
most of the money is, can be 
unplugged and then plugged 
into the expansion sockets 
on RamWorks II. 


It’s Got It All. 
* 15 Day Money Back Guarantee 
* Super sharp 80 column text (patent 

pending) with or without RGB option 


ICE : dick. hes 512K Expander 


¢ RamDrive ™ the ultimate disk 
emulation software included free 
* 16 Bit option 


* Double high resolution graphics 
(with or without RGB option) 

* Expandable up to 1 Meg (1024K) on 
main board 


* Compatible RGB option 

* Built-in self diagnostics software 

* No slot 1 interference 

* Lowest power consumption 
(patent pending) 

* Takes only one slot (auxiliary) 

* Software industry standard 

* Advanced Computer Aided Design 

* Used by Apple Computer, Steve 
Wozniak and virtually all software 
companies 

* Displays date and time on the 
AppleWorks screen with any 
PRO-DOS compatible clock 

* 5 Year no hassle warranty 


RamWorks II with 64K 
RamWorks II with 256K $ 219 
RamWorks Il with 512K $ 269 
RamWorks Il with 1 MEG $ 389 


$ 179 


RamWorks Il with 1.5 MEG $ 549 
RamWorks Il with3 MEG $1699 


RGB Option (may add later) $ 129 
16 Bit Option (may add later) $ 89 


RamWorks II. The industry standard 
for memory expansion of the Apple Ile. 
ORDER YOUR RamWorks IT TODAY. 
9 a.m. to 11 p.m. 7 Days, or send check 
Or money order to Applied Engineering. 
MasterCard, Visa and C.O.D. 
welcome. Texas Residents add 5%% 
sales tax. Add $10.00 outside U.S.A. 


¢ Expandable to 3 Meg (3072K) with 
expander (piggyback) card 

* Can use 64K or 256K RAMS in any 
combination 

* Linear addressing coprocessor port 

* Automatic AppleWorks expansion up 
to 2277K desktop 

* Accelerates AppleWorks 

¢ Built-in AppleWorks printer buffer 

* The only large RAM card that’s 100% 
compatible with all Ie software 


Le Applied Engineering 
P.O. Box 798, Carrollton, TX 75006 
(214) 241-6060 


A WELCOME TO 
NEW NIBBLE READERS 


Welcome to Nibble, one of the finest publica- 
tions available for Apple owners. Each month, 
Nibble publishes an outstanding collection of pro- 
grams for your Apple along with explanations of 
how they work. 

If you’re new to computing, however, you may 
find the world of Apple a bit confusing at first. 
If this is the case, perhaps the best advice would 
be to spend some time with your Apple manuals. 
(Owners of the Apple //e may be interested in 
reading the two-volume set of manuals on Apple- 
soft BASIC available through dealers.) While this 
short summary is no substitute for the manuals, 
it should be enough to get you started on Nibble’s 
program listings. 


A QUICK OVERVIEW OF THE APPLE 

When you first switch on your Apple, with a 
disk in the drive, you will most likely see a ‘]’ 
character, called a prompt. The ‘]’ prompt tells 
you that you can do one of three things: 


1. Give commands in the disk command language 
(e.g. CATALOG). 


2. Give commands in Apple’s version of the 
BASIC language, Applesoft BASIC (e.g. 
PRINT 36+42). 


3. Type in Applesoft BASIC program lines (e.g. 
10 INPUT K). 


To type in programs from Nibble, you may need 
to do all three. 


ENTERING AN APPLESOFT BASIC 
PROGRAM 

Before entering a program listing from Nibble, 
you should first thoroughly read the article accom- 
panying the program. You may not understand 
all of the explanations the first time through, but 
be on the lookout for any special directions for 
typing the program. You should also be sure to 
have an initialized disk ready so that you can save 
your work. (See your disk drive manual or //e 
owner’s manual for details on initializing disks.) 

All BASIC programs consist of a sequence of 
program lines. Each program line begins with a 
number and is followed by one or more program 
statements separated by colons. For example: 


26 FOR J = 1 TO 5:PRINT CHR$(7): 
NEXT J 


To enter a program, begin with the first 
numbered line and type it in exactly as it appears 
(including the line number itself). Though the pro- 
gram line may span several printed lines in the 
listing, do not press <RETURN > (the RETURN 
key) until you reach the next line number. Then 
begin the process again with the next line number. 
When you reach the end of the program, save your 
work on the disk by typing the command SAVE 
followed by the name of the program. That’s all 
there is to it! 
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LISTING 1 


18 REM RING THE BELL 

20 FOR J = 1 TO 5:PRINT CHR$(7) 
NEXT J 

38 END 


To enter the sample program BELLS shown in 
Listing 1, you should follow this sequence: 


1. Type the word NEW <RETURN > to clear 
memory of any old programs. (Make sure the 
<CAPS LOCK> key is down if you are 
using an Apple //e.) 


2. Type line 10 exactly as it appears, but do not 
press <RETURN> until you have typed the 
last word in the line, ‘‘BELL’’. 

3. Repeat this procedure with lines 20-30. 

4. With an initialized disk in the drive, type 
SAVE BELLS <RETURN> to save your 
program on the disk. 


5. Since the program is now in memory, you may 
just type RUN <RETURN > to start it. If you 
erase it from memory by running a different 
program or by turning off your computer, you 
may put it back into memory and start it again 
by typing the command RUN BELLS 
<RETURN>. 


A FEW TIPS 
The following tips may make your work a little 
easier: 


1. If you make a mistake while typing, use the 
back arrow key to go back and correct it, and 
the forward arrow key to ‘“‘retype’’ the 
remainder of the line before pressing 
<RETURN >. If you have already pressed 
<RETURN > before you catch your error, 
simply retype the entire line (number and all) 
and the new version will take the place of the 
old. (The use of an Applesoft line editor like 
MicroSPARC’s GALE can eliminate much of 
this work.) 


2. Be particularly careful when typing in state- 
ments that contain DATA. Typos in other lines 
will probably show up as SYNTAX ERRORS 
when the program is finally run, but those in 
DATA statements may not. 

3. Save the program to disk periodically as you 
go along to minimize the effect of an accidental 
power loss. 

4. Don’t try to make your own modifications to 
the program until you have typed it in as pub- 
lished and have run it successfully. This will 
make it easier to debug in case you have made 
typing errors. MicroSPARC’s KEY PER- 
FECT program and the tables published along 
with program listings can be used to check 


your typing and report any lines containing 
errors. See the advertisement in this issue for 
details. 


5. Lower-case letters may only be used within 
statements that begin with either REM or 
DATA, or between quotes. 


6. If the program does not seem to run correctly, 
it may be helpful to temporarily remove any 
ONERR statements. This will allow you to see 
error messages suppressed by ONERR. 


7. If you’re certain that you have typed the pro- 
gram correctly, but you still can’t get it work- 
ing, call Nibble’s Technical Support Office at 
(617) 371-1660 for assistance. 


ENTERING MACHINE LANGUAGE 
PROGRAMS 

Both BASIC and the disk command language 
are powerful languages that interpret English-like 
words. Your Apple can also understand a much 
lower-level language, called machine language. 
Since this is the Apple’s ‘‘native tongue,”’ 
machine language programs perform much more 
quickly than those written in BASIC. 

Often, a program called an assembler is used 
to help create machine language programs. An 
assembler first allows the programmer to write 
an assembly language program and then translates 
this program into machine language before it is 
run. Though you may not have an assembler, you 
will still be able to extract and use the machine 
language from Nibble’s listings. The advantage 
of an assembler is that it allows you to easily 
modify the program, or to ‘‘borrow’’ a program- 
ming technique. 

If you don’t own an assembler, you will need 
to enter machine language programs directly into 
the Apple’s memory through what is called the 
System Monitor (not to be confused with your 
video monitor). To reach this level from the 
disk/BASIC level (indicated by the ‘]’ prompt), 
you simply type CALL-151 and press 
<RETURN >. You will then see an asterisk («), 
which is the prompt for the System Monitor. 
While you can use many commands at this level, 
the only one you will need to enter Nibble listings 
looks like this example: 


388:A2 85 28 DD FB CA F® B3 4C B2 
93 68 <RETURN> 


In this command, the ‘*300’’ specifies a 
memory location in your Apple and the colon tells 
the Apple to put the following number (A2, a 
number in base 16) into that location. The num- 
bers following the first (05 through 60) are put 
into subsequent memory locations. Though you 
don’t need to understand base 16 (or hexadecimal) 
numbers, you should know that all machine lan- 
guage numbers are given in hexadecimal notation. 


A SAMPLE MACHINE LANGUAGE 
PROGRAM 

Let’s follow a short example of entering a 
machine language program. Listing 2 shows the 
contents of a portion of the Apple’s memory, often 
called a ‘“‘hex dump.’’ The number to the left of 
the hyphen is a memory location’s ‘‘address,”’ 
and the numbers to the right are the contents of 
that and subsequent memory locations. Often such 
a listing will be preceded by two numbers sepa- 
rated by a period (.). These numbers are the start- 
ing and ending addresses of the part of memory 
shown. 


3. When you have entered the entire listing, press 
<CTRL>C< RETURN > to get back to the 
disk/BASIC level indicated by the *]’ prompt. 
This is accomplished by pressing the C key 
while holding down the Control key, and then 
pressing the <RETURN> key. 


4. Although BASIC programs always start in the 
same place in the Apple’s memory, and thus 
can simply be SAVEd, machine language pro- 
grams can start at various places in memory. 
For this reason, the command to save a 
machine language program (BSAVE) must in- 
clude the starting address (A) and the length 
(L) of the program being saved. For the pro- 
gram above, the command: 


BSAVE RINGER,A$300,L$C 


would be used. (The dollar sign ($) signifies 
that the number is given in hexadecimal 
notation.) 

You can now run this program by typing BRUN 
RINGER. (The address and length are only neces- 
sary for the BSAVE command.) You can also run 
this program from the disk/BASIC level (after you 
have BLOADed it into memory) with a CALL 
statement followed by the decimal equivalent of 
the starting address. In this case, CALL 768 can 
be used to run the program since 768 is the deci- 
mal form of the number $300. 

Sometimes a machine language listing is not a 
program at all, but is merely a table of data (such 
as a Hi-Res graphics shape table). In these cases, 
the memory addresses and their contents should 
be typed in as described above, but you should 
Not attempt to BRUN the file you have saved. You 


language programs. (See the Nibble software cata- 
log in the back of this issue for details.) 

We hope that Nibble will provide you with use- 
ful, interesting software, and that your efforts to 
type in and customize the program listings will 
help you become more familiar with your Apple. 
Please feel free to let us know what’s working 
for you, and how you think we could be even more 
helpful. We’d love to hear from you! 


DISK OPERATING 
SYSTEMS 


LISTING 2 


308 .38B 
@3908- A2 95 28 DD FB CA FO 83 
@398- 4C 82 83 60 


A disk operating system is a powerful pro- 
gram that allows a computer to communicate 
with devices which are hooked up to it, such 
as disk drives, printers, and even the key- 
board and video display. There are two dif- 
ferent disk operating systems for the Apple II, 
//e and //c: DOS 3.3 and ProDOS. While 
DOS 3.3 will run on any Apple II, ProDOS 
will only work on an Apple II Plus that has 
an extra 16K of RAM or an Apple //e or //c. 
Although there are many similarities be- 
tween the two operating systems, there are 
enough differences that some programs which 
work properly under one system, will not 
work under the other. Whenever possible, the 
programs published in Nibble will be written 
in such a way that they will work properly 
under both DOS 3.3 and ProDOS. You will 
be able to tell if this is the case by reading 
the section that contains author information on 


Listing 3 shows the assembly language which 
was used to create the machine language program 
shown. Notice that the numbers in the left-hand 
columns look very similar to those in Listing 2. 
They are, in fact, the same set of memory ad- 
dresses and their program contents in a different 
format. All of the columns on the right are 
assembly language instructions and comments. 
While other assemblers use slightly different for- 
mats, you will always be able to find the two 
columns which contain the addresses and contents 
of memory. 


LISTING 3 4 ; ; the first page of each article. 
1 “RINGER PROGRAM | | Will be able to determine whethet the machine lar” | For more information about DOS 3.3 and 
2 ORG $399 guage aaung, 18.3 program ora NS PY PRE ProDOS, check with your local Apple dealer 
3 BELL EQU $FBDD ing the accompanying article. Sir igeris coro 

9308: A2 @5 4 LDX #$5 As with Applesoft programs, MicroSPARC’s : BTONP: 

9302: 20 DD FB 5 LOOP JSR BELL KEY PERFECT program can help you find typing 

0305: CA 6 DEX errors in machine language programs. Also, the 

9306: FO 03 7 BEQ END Nibble program M.L.E. (Machine Language Edi- In this issue, good programs for 

9388: 4C G2 O38. JMP LOOP tor) can simplify the entry and editing of machine beginners appear in the One-Liners 

O30B: 68 9 END RTS section on page 160. 


To enter the machine language listings, you just 
type in the addresses and their contents as follows: 


1. Type CALL—151 <RETURN > to get into 
the System Monitor. You should now have an 
asterisk (+) prompt. 


2. Type the first memory address shown, a colon 
(instead of the hyphen shown in the listing), 
and the memory contents. If you were using 
a listing similar to Listing 2, you would type: 


380:A2 @5 28 DD FB CA F® G3 
<RETURN> 
3@8:4C @2 83 6B <RETURN> 


The Pain of Entering 
Machine Language Programs 


Let’s face it...typing machine To EDIT mistyped bytes all you do is move the 
language programs from maga- cursor over the incorrect characters and retype 
I zines and books is a pain! And them! 
if you make an error or leave something out, 
you may have to go back and retype the whole Here’s what some new MLE users say! 
ing! 
net “MLE is one of those rare utilities that makes 
The NIBBLE MACHINE LANGUAGE you wonder how you ever managed to get along 
EDITOR (MLE) uses word processing WaIBOME tt. 
techniques to make the TYPING much easier. “TT can enter programs IT never would have 
Automatic formatting and carriage returns do attempted before!”’ 
the job! 


If you were using an assembler listing like that 
in Listing 3, you would type: 


399:A2 5 <RETURN> 
382:28 DD FB <RETURN> 


So, if you want to kill the pain of typing and 


5 If you make a mistake and leave out some editing machine langu: MLE is for yo 

395:CA <RETURN BCE Ine NOE, oat eae 

Saeed BSlekerucis code, MLE lets you go back and INSERT the 

308:4C 92 93 <RETURN> missing bytes. The rest of the program is MLE is available for $29.95 plus $1.50 

30B:6@ <RETURN> automatically opened up to make room! shipping/handling ($2.50 outside the U.S.) from 
NIBBLE. 


Be sure that you do not put a space between 
the colon and the first pair of hexadecimal 
digits, but that you do put spaces between sub- 
sequent pairs. You may actually type up to 85 
pairs of digits after each colon, but it is easier 
to follow the listing as published for your first 
time through. 


Or if you mistakenly insert extra code, MLE 
lets you DELETE it, and the rest of the program (Mass. Residents Add 5% Sales Tax) 
is moved to fill in the space — automatically. 


nibble 45 Winthrop St., Concord, MA 01742 Telephone (617) 371-1660 
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HUUUUERUONOEUOGUEDONONDORAONDONUUGUAGGGDOAGOOOOGEHONANONAGOGONaueOEOCOUAONONaOnONOSOOOOOoOoaooNOOoNONNY, 


dd Logo- 


like commands to Applesoft for fast, easy tur- 
tle graphics programming. Turtle BASIC adds 
24 keywords that let you control the “‘turtle,’’ 
print Hi-Res text, and create animation. 


VUUETUAUUAUETUUUEUHNOUOUEUAOUADUEUAOOEOUEUACUEDOAEAOUEUUOUAUAEOEELAOOCDUOUATANTOOEUGUECUOAGUERUEOHOUAUOOEUEEOEUOGUEDOGUOOOEOOOLOUOEOOCUOOOEOOOLOOOEOOCOOGUEOOELOCOEUCLOOUEEOEOOOUODODOOOOROEAUODOEDEUCAUODEONEOCODEOGODEONEDOENEONEONODEONOnNOOEDNONOONODOEOEONODEONOGOOnEOGOnEONOOUOOOOOONEGOuObOOONLEubONNGUECUEOuOdEAUCNOCaCQOONONNG 


66 


nce’’ said the Mock Turtle at last, with 

a deep sigh, ‘‘I was a real Turtle.’’* If 
your idea of a turtle is a short, slow, green reptile 
in a shell, you have not discovered the mock turtle 
of the modern age — turtle graphics. Turtle 
graphics is a concept that was developed as part 
of the Logo computer language. Logo’s inventors 
felt that understanding of graphics programming 
could be improved if students could visualize mov- 
ing an object around the screen, commanding it 
to move a certain distance or face a particular direc- 
tion. To reinforce the point, they devised a simple 


*Alice in Wonderland by Lewis Carroll. 


J.B. Ward, Saint John, N.B., Canada. Turtle BASIC requires 64K 
and works only under DOS 3.3. 
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robot (which looked a bit like a turtle) that could 
be programmed to move in the same way as the 
graphics cursor. 

Turtle BASIC (Listings 1-4) modifies Applesoft 
to implement turtle graphics commands. Special 
keywords, such as FWD, BACK, LEFT and 
RIGHT, direct the turtle (or Hi-Res cursor) around 
the screen, while other keywords allow you to 
easily display Hi-Res text and create page-flip ani- 
mation. Turtle BASIC is fast, and it eliminates the 
need for most shape tables and HPLOT statements. 


WHY A TURTLE? 

There are two ways to draw a line on the Apple. 
One is to specify two sets of x,y coordinates and 
draw a line that connects them. This is called the 


UEOUEUENAOUGUENUEUAGANDEDUEUEDUELOCUEDUEUEOEUERUCLEOUELOOOAUUELELOEDLOUELANOLAOUEDULLANOEDEDONOEUGOCGUEUOELALONDEUOALOCOUOOOUOGUOOOODEOOEONEOEOOEUOUOEOUOOEGOROELUUDELHELOELOOUELIUEONEE 


TT 
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TABLE 1: List of Turtle BASIC Commands 


Cartesian method, named for Rene Descartes. Another way (the 
turtle graphics way) is to say, **Turn left or right so many degrees 
and then go forward so many steps.’ Often, graphics that are dif- 
ficult to draw using the Cartesian method become very simple using 
the turtle. Turtle BASIC lets you choose either method. 


TALKING TURTLE 

Before you can use the turtle, you need to learn its language. 
A complete list of the Turtle BASIC command set is shown in Table 
1. The section PLAYING TURTLE leads you through a short 
sample session of programming in Turtle BASIC. 


Moving the Turtle 
The most basic keywords tell the turtle how to move. They are: 


FWD n moves the turtle forward n units. 
BACK n moves the turtle back n units. 
LEFT d turns the turtle left d degrees. 
. RIGHT d turns the turtle right d degrees. 


RWNe 


In these commands the n is specified in steps. The Hi-Res screen 
is 280 of these units wide and 192 high. The d represents an angle 
in degrees. Both n and d may be expressions. For instance: 


198 FWD 5 : LEFT 99 


moves the turtle forward five units, and then turns it 90 degrees 
counterclockwise. But the following statements are also handled 
properly: 


1g@9 FWO A+ 5 * SOR(ZI) : LEFT DQ * 2.3 


The turtle graphics keywords follow the same rules as Applesoft 
BASIC keywords. Turtle BASIC uses the same Hi-Res coordinate 
system as Applesoft, so HPLOT and DRAW can be used in the 
same program as Turtle BASIC commands. 


Making the Turtle Visible 
SHOW makes the turtle visible. When the turtle is visible, it draws 
on the screen as you move it around. HIDE makes the turtle invis- 


ible. When the turtle is invisible, no lines are drawn when you move 
it around. 


Orienting the Turtle 

The JUMP command moves the turtle to a particular position 
or series of positions. Each position is specified by its x,y coordi- 
nates. A line may or may not be drawn, depending upon the pen 
color, SHOW/HIDE status and the exact syntax used. JUMP is simi- 
lar in meaning to Applesoft’s HPLOT. Multiple arguments are pos- 
sible, with each set of coordinates separated by the keyword TO. 
The following are examples of JUMP statements: 


JUMP x,y — Positions the turtle at coordinates x,y. Using this syn- 
tax does not draw a line from the previous position to x,y, regard- 
less of the SHOW/HIDE status. This takes care of the common 
case where a figure must be drawn, but the turtle is not at the start- 
ing point. 


JUMP TO x,y — Draws a line between the previous position and 
x,y, if the turtle is in SHOW mode. 


JUMP x1,y1 TO x2,y2 TO x3,y3 — Draws a line from x/,y/ to 
x2,y2, then to x3,y3. 


JUMP TO x1,y1 TO CENTER TO x2,y2 TO NEST — Draws 
a line from the previous position to x/,y/, then to the center of 
the screen, then to x2,y2, then to the screen origin. Note that 
CENTER and NEST are keywords (discussed below). 


TURNTO d — Turns the turtle to a heading of d degrees. Zero 
degrees points horizontally to the right. A positive angle is clock- 
wise. The heading used here is an absolute heading, while the head- 
ings used by RIGHT and LEFT are relative to the current heading. 


CENTER — Puts the turtle at the center of the screen (x,y = 
140,96). A line is not drawn from the previous position. CENTER 
may be used by itself or as part of a JUMP command. 


NEST — Puts the turtle at the origin in the upper-left corner of 
the screen (x,y = 0,0). As with CENTER, a line is not drawn. 
NEST may be used by itself or as part of a JUMP commannd. 


Hi-Res Screen Control 

The Applesoft keywords HGR and HGR2 are replaced in Turtle 
BASIC by more flexible keywords that control the Apple video soft 
switches directly from BASIC. Each switch can be independently 
manipulated so that page-flip animation is made easy. 


HIRES — Selects Hi-Res graphics mode. HIRES has no effect on 
the split/full mode setting or the screen selected for plotting and 
viewing (see below). 


TEXT — Selects text mode, page 1. Switching to text mode does 
not disturb plotting to either Hi-Res page. 


SPLIT — Selects the split (or mixed text and graphics) Hi-Res mode 
on the screen currently selected for viewing. This allows the bottom 
four lines of the text screen to be displayed on the Hi-Res screen. 
SPLIT is very useful when you are experimenting with immediate 
mode turtle commands. 


FULL — Selects the full (unmixed) Hi-Res display mode. 


VIEW# n — Selects a page for viewing. This may or may not be 
the same page currently selected for plotting. If n is odd, page | 
is selected; otherwise, page 2 is selected. The value of n must be 
greater than —32769 and less than 32768. 
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PLT# n — Selects a Hi-Res page for plotting. If n is odd, page 
1 is selected; if n is even, page 2 is selected. 


CLR — Clears the plotting page and fills it with the opposite of 
the currently selected turtle color (either black or white). 


BLACK and WHITE — Specify the color of the turtle. WHITE 
is the default color, and will cause the turtle to draw white lines 
on a black background. BLACK has the opposite effect. Note that 
turtle graphics are monochromatic: if a bit on the screen is on, it 
is considered white, regardless of how it may appear on a color 
monitor. 


Hi-Res Printing 

HPRINT is simply a high resolution version of the Applesoft 
PRINT. The only difference in syntax is that HPRINT accepts a 
set of x,y coordinates as input arguments. These coordinates specify 
the position of the upper-left corner of the first character to be 
printed. In the following examples, /ist is any set of string or numeric 
expressions that would be acceptable to Applesoft’s PRINT. Upper- 
case and lower-case characters are included in the Hi-Res character 
set. As usual, x and y represent a set of coordinates. 


HPRINT (x,y) list — Prints a list starting at x,y. A carriage return 
is performed at the end of the print. 


HPRINT list — Prints a list at the current text position on the 
screen. If this is followed by an HPRINT (x,y) list statement, the 
first character in the /ist would be at coordinates 0, y+8, that is, 
at the beginning of the next line. 


HPRINT (x,y) list ; — As with PRINT, a semicolon eliminates 
the carriage return at the end of output. If an HPRINT list state- 
ment followed this one, the second output string would begin imme- 
diately after the end of the first. 


HPRINT (x,y) ; — Sets up a starting position for some future 
HPRINT. 


HPRINT — Performs a carriage return. 
HPRINT ; — Does nothing. 


System Variables 

Three special keywords — TURTLEX, TURTLEY and ANGLE 
— provide information about the status of the turtle. They act like 
variables that cannot be assigned a value directly. Unlike Applesoft 
variable names, where only the first two characters are significant, 
all characters of these names are significant. TURTLEX and 
TURTLEY supply information about the position of the turtle, while 
ANGLE supplies the heading. For instance, to get the current turtle 
heading, you could just type: 


PRINT ANGLE 
or you could assign the value to a variable: 
TH = ANGLE 


but you cannot assign a value to ANGLE or expect to change the 
current heading with a statement such as: 


ANGLE = 45 


In this case, the BASIC variable AN gets the value 45 and the turtle 
heading does not change. CURSORX and CURSORY can be used 
in the same way as ANGLE. 


Miscellaneous Keywords 


DO name — Is an extra type of subroutine call that is similar to 
GOSUB but accepts variable names. The variable must contain the 


TABLE 2: Character Table for the Letter E 


line number of the subroutine being called. 

This new statement improves program readability. GOSUB 
SQUARE beats GOSUB 2000 for readability, but a simple DO 
SQUARE is even better. When using DO, try to keep all variable 
definitions together, near the beginning of the program. This helps 
you keep track of your subroutine locations, and it speeds program 
execution, since the BASIC interpreter has fewer program lines to 
search through to find the value. 


Exclamation Mark (!) — Substitutes for the REM statement. Like 
DO, it helps make programs more readable. The old REM has been 
left intact, and may still be used. 


Custom Character Sets 

Since the character set used by HPRINT is kept in RAM, it is 
possible to change individual characters in a set, or substitute another 
character set of your own. The character table is an array 96 charac- 
ters long, with eight bytes per character. The address of the begin- 
ning of this table is at location $8A8B (decimal 35467). Using an 
instruction sequence such as: 


1998 PRINT CHR$(4);"BLOAD CSET2 ,A24576" 
1818 POKE 35467 , 24576-INT (24576/256) «256 
1828 POKE 35468, 24576/256 


would allow you to switch to a new character set kept at $6000 
(24576). After that, you could switch back and forth using only 
two POKE instructions. 

To go back to the default character set, use: 


POKE 35467 ,208 : 
POKE 35468,145 : 


! Low byte address, $C8& 
! High byte address, $91 


Because the starting address of the default set is $91C8 (decimal 
37320), breaking $91C8 into two bytes gives $C8 (decimal 200) 
and $91 (decimal 145). 

The table starts with the space character, $20, and ends with the 
rubout character (a solid block), $7F. Since each character is rep- 
resented by eight bytes, the first eight bytes define a space, the next 
eight define an exclamation mark (!), and so on. 

The offset into the table for the letter E is given by: 


OFFSET = 8*(ASC(‘‘E’’)—32) 


which equals decimal 296. 

Table 2 gives the bit pattern for the letter E. Wherever a bit is 
set to one, a pixel on the Hi-Res screen is lit. You can see that 
the bit patterns must be backwards. Less obvious is that while the 
bit patterns are all eight bits wide, a character on the screen is only 
seven bits wide. Bit 7 of each byte is never used, and should be 
left clear. 

Your new character set can be made of graphic symbols or alpha- 
betic characters. Large, complex symbols can then be made by put- 
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ting a number of characters together; each character is a piece of 
the larger symbol. 


PLAYING TURTLE 

Perhaps the best way to get the feel of turtle graphics program- 
ming is to try it in immediate mode, so you can see the effect on 
the screen as you enter each command. Start by initializing Turtle 
BASIC with: 


BRUN TURTLE 
NEW 


Then enter a very short program: 


19 FWD 58 : 
2@ END 


LEFT 99 


Set up the Hi-Res, split screen for both viewing and plotting; clear 
it; and move the turtle to the center of the screen as follows: 


FIGURE 1: Squiral Created by DEMO1 


Press Return 


VIEW# 1 

PLT# 1 

SPLIT : HIRES 

CLR 

CENTER : TURNTO @ 


Now you can draw a square, one side at a time, by typing: 


RUN 
RUN 
RUN 
RUN 


By changing the heading, you can draw a new square tilted at 45 
degrees: 


LEFT 45 
RUN 
RUN 
RUN 
RUN 
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Finally, you can label your creation with: 


HPRINT(19,59) "SQUARES" 


The two-line program simply draws a side of the square and turns 
the turtle 90 degrees to the left. See the demonstration programs 
(Listings 5, 6 and 7) for examples of incorporating these and other 
commands into a program. DEMO 1 uses a subroutine that draws 
a square in a manner very similar to what you just did in immedi- 
ate mode. (See Figure 1 for the resulting display.) DEMO2 demon- 
strates the use of subroutines to create complex figures on both 
graphics pages, and then uses the VIEW command to achieve page- 
flip animation (Figure 2). Notice the use of Hi-Res text to include 
a prompt on the Hi-Res screen. DEMO3 uses simple turtle graphics 
commands to create an abstract pattern. 


ENTERING THE PROGRAMS 
Turtle BASIC is listed in two different ways. The first is as source 


FIGURE 2: Animation Display Created by DEMO2 


code for entry using MicroSPARC’s Assembler (Listings 1, 2 and 
3), and the second is as a hex dump of the assembled program (List- 
ing 4). If you don’t have the MicroSPARC Assembler, follow the 
directions for entering the program from the hex dump. 


Entering the Program With the MicroSPARC Assembler 

If you are using a one-drive system, use the FID program from 
your DOS 3.3 System Master disk to copy the file MACLIB 
.SOURCE from the MicroSPARC Assembler disk to the disk that 
will hold your other source files. 

Using the Assembler’s editor, enter Listing 1 and save it under 
the name TURTLE1. Next, enter Listing 2 and save it under the 
name TURTLE2. Finally, enter Listing 3 and save it under the name 
TURTMAC. These files will show up in the disk directory with 
a .SOURCE suffix, but you should not enter the suffix when saving 
or loading these files with the Assembler. Load TURTLE] and 
assemble it. It will automatically call the other two source files. 
When the assembly is completed, the object file, TURTLE, will 
have been automatically saved on the disk. 


Entering the Program From the Hex Dump 

To key in Turtle BASIC without the MicroSPARC Assembler, 
enter the Monitor with CALL — 151 and type the hex code as shown 
in Listing 4. Save the program with the command: 


BSAVE TURTLE,A$8800,L$CC8 
Entering the Demonstration Programs 

Because Turtle BASIC is an altered version of Applesoft, it should 
be initialized with the command BRUN TURTLE before any Turtle 


BASIC program is entered (or loaded from disk). Once this has 
been done, enter DEMO! (Listing 5) and save it with the command: 


SAVE DEMO1 

Enter DEMO2 (Listing 6) and save it with the command: 
SAVE DEMO2 

Enter DEMO3 (Listing 7) and save it with the command: 
SAVE DEMO3 


For help in entering Nibble listings, see ‘‘A Welcome to New Nibble 
Readers’’ at the beginning of this issue. 


Turtle BASIC, Nibble Calculator and Tank Combat 
are available on diskette for an introductory price of 
$19.95 plus $1.50 shipping/handling ($2.50 outside the 
U.S.) from Nibble, 45 Winthrop St., Concord, MA 
01742. Introductory price expires 3/31/86. 


LISTING 1: TURTLE1 — Source File for MicroSPARC Assembler 


eerrrrrr err rere ee eer ee! 
* TURTLE1 * 
t* TURTLE . BASIC * 
i BY J.B. WARD * 
*« COPYRIGHT (C) 1986 «+ 
;* BY MICROSPARC, INC «+ 
;* CONCORD, MA 91742 « 

* 


ererrrer ree eee Tee eT ee 


WOMDNDUSPWNHKYD 


Aes 
18 ;* MICROSPARC ASSEMBLER 
* 


MT 

12 USE MACLIB,D1 

is USE TURTMAC , D2 

14 UEN 

15 MUL 

16 ; Define BASIC entry points & 

17 ; page zero locations. 

18 NEW EQU $D64B ; "New-workspace" routine 

19 WARM EQU $EGO3 ; Warm-start entry 

28 IEVAL EQU $E6F8 ; Evaluate-exp., return 1 byte. 
21 FEVAL EQU $DD67 ; * ig) Pe * at pt. 
22 SINE EQU $EFF1 ; sub: Sine 

23 COSINE EQU $EFEA ; sub: Cosine 

24 FLOAD EQU $EAF9 ; Sub: load FACC1 

25 FSAVE EQU $EB2B ; Sub: save FACC1 

26 FADD EQU $E7BE ; sub: flt.pt. add 

27 FADHAF EQU $E7AD ; sub: add 8.5 to FACC1 

28 FSUB EQU $E7A7 ; sub: flt.pt. subtraction 

29 FIX EQU $E18C ; sub: convert FACC1,fp-to-int. 
3@ FMPY EQU $E97F ; sub: flt.pt. multiply 

31 FDIV EQU $EA66 ; sub: flt.pt. divide 

32 INT EQU $EC23 ; sub: take int. part of FACC1 
33 REM EQU $D9DC ; sub: "REM" action 

34 GOTO1 EQU $D941 ; sub: “GOTO" action 

35 CHKDEP EQU $D3D6 , 2? 

36 NEXT EQU $D7D2 >; “perform-next-line” entry 

37 DOSWRM EQU $9DD9 ; DOS3.3 warm-start entry 

38 CHKRPA EQU $DEB8 ; sub: check & skip right-paren 
39 CHKLPA EQU $DEBB ; sub: check & skip left-paren 
49 CHKCOM EQU $DEBE ; sub: check & skip comma 

41 CHKC EQU $DECS ; sub: check & skip chr.in Areg 
42 CHKALF EQU $E97D ; sub: if Areg=letter,carry:=1 
43 PRINT2 EQU $DAD5 ; sub: "PRINT" entry 

44 ILLQTY EQU $F206 ; "illegal quantity” msg. entry 
45 BELL EQU $FBDD ; sub: ring bell. 


continued on next page 


With Z-80 Plus,’ 
run CP/M-the 
largest body of 
software in 
existence. 


Now, get two computers in one, 
and all the advantages of both. 


nter the CP/M world with the new Z-80 Plus card from Applied 

Engineering, and introduce your Apple IIe® or II + ® to the thou- 
sands of CP/M programs. Only the Z-80 Plus comes standard with the 
new 4.0 software, the most advanced system ever for running CP/M 
programs. 

The new 4.0 boasts advanced features like built-in disk emulation for 
popular memory expansion boards, boosting both system speed and 
storage capacity. And menu-driven utilities that let you get to work faster. 
The Z-80 Plus also lets you run older CP/M programs — all the way down 
to Version 1.6 (2.2 is the most popular). 

The Z-80 Plus is the only card on the market capable of accessing 
more than 64K in an Apple Ile. If you have an extended 80-column 
card, all 128K is usable, and if you have RamWorks, up to 1088K 
is available. 

Each Z-80 Plus comes with our CP/M Ram Drive software, enabling 
Ile owners to use an extended 80-column card or a RamWorks card as a 
high-speed Ram disk which runs CP/M software up to twenty times faster 
So packages like WordStar and dBASE II run at blinding speed. 

Simply plug the Z-80 Plus into any slot in your Apple. You'll get the 
benefits of two computers in one — all at an unbelievably low price 
(only $139!). 


* Fully compatible with ALL CP/M software * Fully compatible with 
most hard disks, including Corvus and the Sider * Fully compatible 
with Microsoft disks (no pre-boot required) * Specifically designed 
for high speed operation in the Apple Ile (runs just as fast in the 

Apple II+ and Franklin) | * Runs WordStar, dBASE II, Turbo Pascal, 
Fortran-80, Peachtree and ALL other CP/M software with o pre-boot 

* Semi-custom I.C. and low parts count allows Z-80 Plus to fly through 
CP/M programs with extremely low power consumption (we use the 
Z-80B) * Does EVERYTHING other Z-80 boards do, plus Z-80 inter- 
rupts Five year warranty 


Call to order today, 9 a.m. to 11 p.m. seven days, or send check or 
money order to Applied Engineering. MasterCard, VISA and C.O.D. 
welcome. Texas residents add 5%% sales tax. Add $10.00 outside U.S.A. 


Fal Applied Engineering 
P.O. Box 798, Carrollton, TX 75006 
(214) 241-6060 
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LISTING 1: TURTLE1 (continued) 143 STA  $DED5 -5) Variable-search patch 


144 LDA #PARPAT i:Fill in target addresses 

46 GETC2 EQU $0981 ; sub: get-next-nonblk-input-chr| 145 STA $D6C 

47 GETC3 EQU $2287 ; sub: get-last-nonblk-input-chr] 146 LDA HPARPAT/ 

48 HRPAGE EQU $E6 ; Hires-plot page; $28 or $408 147 STA $062D 

49 LASCHR EQU $B8 ; &B9 : ptr. to fast input char.|] 148 LDA #LISPAT 

5@ LINENO EQU $75 ; BASIC executing line #. 149 STA $D738 

51 CSWL EQU $36 ; char.output vector, low 158 LDA #LISPAT/ 

52 CSWH EQU $37 cara a : »high 151 STA $D739 

53 GBASL EQU. $26 ; hires graphics base addr, low 152 LDA HRUNPAT 

54 GBASH EQU $27 ia _ . "high 153 STA $0847 

55 NTOKES EQU 19 ; Number of new token types. 154 LDA HRUNPAT/ 

56 TOTOKE EQU 193 >; “TO" token number 155 STA $D848 

57 CENTOKE EQU $F2 ; “CENTER” token number 156 LDA #REMPAT 

58 NESTOKE EQU $F3 ; "NEST" token number 157 STA $D5E6 

59 ; temp. plotting vars; “borrows” F.P.registers. 158 LDA #REMPAT/ 

62 PMSK EQU $9D ;"plot-mask";dot to be plotted. 159 STA $D5E7 

61 XOFSET EQU $9E :x byte-offset into hires screen| 160 LDA #VARPAT 

62 PTCTR EQU $AB ;point counter;# points to plot.| 161 STA $DED6 

63 XSTRT EQU $A2 ; starting x byte offset 162 LDA #VARPAT / 

64 MSKIX EQU $A3 ; index into dot-mask table 163 STA $DED7 

65 ; $A4 must not be touched,else sys goes strange. 164 LDX #6 

66 TMPIXC EQU $A5 ; temp.integer x-coord 165 PATQ18 LDA NNS ,X "CLR" and “DRAW” 

67 TMPIYC EQU $A7 ; temp.integer y-coord 166 STA $D199 ,X 

68 INCVAL EQU $A9 ; (When: TSTSUM := TSTSUM+INCVAL) | 167 DEX 

69 TSTSUM EQU $AB ; (results in carry-set,then we) 168 BPL PAT@18 

78 ; (change dependent coord by +-1.) 169 LDA #PLOT-1 

730% (Else next pt.is on vert.or horiz.) 178 STA $DB28 

72; (line from last point plotted.) 171 LDA H#PLOT-1/ 

73 ORG $8800 172 STA $D821 

74 ; « Begin: Patch BASIC, initialize, warm-start BASIC. 173 LDA #CLR-1 

75 TURTLE JSR CPYROM Copy rom-to-ram 174 STA $DB22 

76 JSR PATCH ;Patch ram copy to enter turtle.| 175 LDA #CLR-1/ 

77 JSR NEW :Call BASIC “new" routine. 176 STA $D823 

78 JSR SETMEM ;Set himem & lomem. 177 LDA #TEXT-1 ;Change addr of TEXT 
79 JSR SETRAM ;Set flags & capture reset vec. 178 STA $0012 

82 JMP WARM ;Warm-start interpreter. 179 LDA #TEXT-1/ 

81 ; Function jump table 188 STA $D@13 

82 ; Function Token # 181 LDA #$FF ;allow lower-case input 
83 FNADRS ADDR FWD-1 ;EC 182 STA $FD83 

84 ADDR BACK-1 ;ED 183 LDY #5 ;fill in ext.exec.vectors 
85 ADDR LEFT-1 ;EE 184 PAT@28 LDA EXADRS , Y 

86 ADDR RIGHT-1 ;EF 185 STA EXLIAD,Y 

87 ADDR SHOW-1 ; FO 186 DEY 

88 ADDR HIDE-1 ;Fl 187 BPL PATO20 

89 ADDR CENTER-1 ;F2 188 LDA $CO8O ‘Write-protect RAM above $D028 
98 ADDR NEST-1 ,F3 189 LDA $CO8B 

91 ADDR HEAD-1 (Fa 198 RTS 

92 ADDR JUMPTO-1 ;F5 191 NNS DCI PLT#” 

93 ADDR SPLIT-1 + F6 192 DCI CLR" 

94 ADDR FULL-1 ;F7 193 ; Set high memory bound for interpreter. 

95 ADDR HIRES-1 ;F8 194 SETMEM LDA #TURTLE-1 ;Himem=just below turtle. 
96 ADDR VIEW-1 ;F9 195 STA $73 

97 ADDR EXCLAIM-1 ;FA 196 STA $6F 

98 ADDR DO-1 ;FB 197 LDA #TURTLE-1/ 

99 ADDR HPRINT-1  ;FC 198 STA $74 

188 ADDR BLACK-1 :FO 199 STA $768 

181 ADDR WHITE-1 > FE 228 RTS 
182 ; Token names for turtle extensions 281 SETRAM LDA #$FF 
183 NAMES DCI FWD" 282 STA $E4 ;Hcolour=white(7) 
184 DCI BACK” 283 LDA #8 
185 OCI LEFT” 284 STA SHOFLG ; Show’ turtle 

186 DCI RIGHT" 205 LDA #$28 
187 BCI SHOW" 206 STA HRPAGE ;Hires screen=1 
188 DCI HIDE” 287 JSR CENTER ;Center turtle. 
189 OCI CENTER” 288 JSR WHITE ;Set ink = white 
112 DCI NEST” 289 LDA #CHRTAB 
1h DCI TURNTO" 218 STA CTABAD ;Point hires print to 
112 BCI JUMP” 211 LDA #CHRTAB/ = .our hires char.table 
113 DCI SPLIT” 212 STA CTABAD+1 
114 DCI FULL” 213 LDA #RESET 
115 DCI HIRES“ 214 STA $3F2 
116 DCI VIEW#" 215 LDA #RESET/ ;Capture reset vector 
117 ocl !" 216 STA $3F3 
118 BCI BO" 217 EOR #$A5 
119 DCI HPRINT” 218 STA $3F4 
1298 OCI BLACK" 219 RTS 
121 DCI WHITE" 228 ; errr rere rr eer es 
122 DFC g 221 : xx PATCHES) axx 
123; Copy all of $D@Q0-$FFFF from ROM to RAM. 222 : eee eee eee eee 
124 CPYROM LDY #D 223, Note “hooks” for future extensions to 
125 STY $58 224 , keywords by inclusion of external code. 
126 LDA #$D8 225 EXADRS ADDR RETURN :default addrs. for exec. 
127 STA $51 226 ADDR RETURN ivectors, below. 
128 LDA $C881 ;enable read-rom/write-ram 227 ADDR RUN99® 
129 CPY@19 LDA ($58) .V¥ 228 EXLIAD DFS 2 :ext.exec.vectors 
136 STA ($58) .¥ 229 EXPAAD DFS 2 
131 INY 238 EXRUAD DFS 2 
132 BNE CPYG18 231 EXLIST JMP (EXLIAD) 
133 INC $51 232 EXPARSE JMP (EXPAAD) 
134 BNE CPYG1 233 EXRUN JMP (EXRUAD) 
135 RTS 234 RETURN RTS ; "dummy" statement 
136 ; Patch RAM copy of interpreter to 235 ; Reset patch 
137 ; cause entry to turtle code. 236 RESET LDA $CO8A ;Set lang.card ram for read, 
138 PATCH LDA #$4C ;Put JMP opcode at: 237 LDA $CB8S ;but write protected: Warm 
139 STA $D69B ;1) Parse patch 238 JMP DOSWRM :start interpreter. 
1408 STA $D737 32) List patch 239 ; Program-list patch 
141 STA $0846 ;3) Run patch 248 LISPAT CMP #SFF ;double token? 
142 STA $D5E5 74) Parser °!" patch 241 BNE LIS@19 ;-skip if not; else exec. 


a EE TI 
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242 JSR EXLIST ;external code, if any. 

243 BCC LIS838 ;-br.if external token. 

244 LISO1B CMP #235 ;is it one of our tokens? 
245 BCS LIS820 ; (branch if so.) 

246 SBC #$7E ;no.exec patched-over code&ret. 
247 TAX 

248 JMP $D73A 

249 LIS#28 SBC #235 ;Token probably ours.Point to 
258 TAX ;Our name table,return to check. 
251 STY $85 

252 LDA #NAMES 

253 STA $9D 

254 LDA #NAMES - $188/ 

255 STA $9E 

256 LIS@38 JMP $D744 

257 Parser patch 

258 PARPAT LDA $OF ;see if our keyword table 
259 CMP #233 ;has been checked yet. 

2608 BCC PARG18 ; if not,branch; else exec. 
261 JSR EXPARSE ;external code,if any. 

262 BCC PARG29 ;br.if found in ext.table. 
263 LDA $8208 ,X ;-name not in our table either. 
264 JMP $D6GE 

265 PARG19 LDA #NAMES-1 ;Have parser check 

266 STA $9D ;Our name table. 

267 LDA #NAMES- 1/ 

268 STA $9E 

269 PARG20 LDY #8 

2708 JMP $D5A8 

271 ; Run-time patch 

272 RUNPAT CMP #$FF double token? 

273 BNE RUNG18 ;skip if not; else execute 
274 JMP EXRUN ;some external code. 

275 RUNG19 SEC 

276 SBC #188 ;Is token one of ours? 

277 CMP #NTOKES 

278 BCS RUN99D ;Nope...must be an error. 
279 ASL 

2808 TAY ;Cvt.new token code to fn.table 
281 LDA FNADRS+1,Y ;offset.addr will be popped and 
282 PHA ;used when "$88B1" routine does 
283 LDA FNADRS , Y ;an RTS instruction. 

284 PHA 

285 JMP $00B1 

286 RUN99D JMP $DEC9 - Syntax Error 

287 ; Patch for REMark alias, "!". 

288 Patch parser to include check for "!" 

289 ; immediately after check for "REM" fails. 

298 REMPAT BEQ REMG18 >; ( if token = REM ) 

291 CMP #72 ; Not REM; how about 

292 BEQ REM@19 alias, "&* 7% 

293 JMP $D56D -Was neither. Act nonchalant 
294 REMO18 LDA #D ;Bingo. Token was either 
295 STA $BE ;REM or !. We could care 
296 JMP $D5E9 ; less which; do REM action. 
297 Patch to variable-name search routine 

298 to allow use of "TURTLEX", "TURTLEY", 

299 ; and "ANGLE" as special system variables. 

308 VARPAT LDY #6 ;check for “TURTLEX" 

381 VPG18 LDA ($B8) ,Y 

302 CMP TXN,Y 

383 BNE VP828 

304 DEY 

305 BPL VP818 

306 LDX #XC 

3087 LDY #XC/ 

388 JMP VP248 

389 VPG28 LDY #6 ;check for "TURTLEY" 

318 VP838 LDA ($B8) ,Y 

311 CMP TYN,Y 

312 BNE VP258 

313 DEY 

314 BPL VP238 

315 LDX #YC 

316 LDY #YC/ 

317 VP@49 JSR GETC2 ;skip over name. 

318 BCC VP248 

319 JSR CHKALF 

320 BCS VP848 

321 LDA #8 

322 STA $11 ;clear "string" flag 

323 STA $12 ;clear "integer" flag 

324 TXA 

325 JMP $DED8 

326 VPG58 LDY #4 ;check for "ANGLE" 

327 VPB6B LDA ($B8) ,Y 

328 CMP ANN ,Y 

329 BNE VP878 

3308 DEY 

331 BPL VP268 

332 FDIV THETA,PIBY18@,FTMP 

333 LDA #FTMP 

334 LDY #FTMP/ 

335 JMP VP248 

336 VP87B JSR $DFE3 ;not turtlex,y or angle. 
337 JMP $DED8 ;do normal search & return. 
338 TXN DFC $54,$55,$52,$54,$4C, $45, $58 

339 TYN DFC $54,$55,$52,$54,$4C,$45.$59 


continued on next page 


Timemaster H.O*%} 
the only clock 
_ that displays 
time and date on 


9™ 


AppleWorks 
screens and files. 


Now, get all the features of 
all the competition combined! 


ts the smart way to put the time and date on your Apple 

11+ ® or Ile®. Because only the Timemaster H.O. packs ALL 
the features of all the competition combined, including leap 
year, year (not just in PRO-DOS), month, date, day of week, 
hours, minutes, seconds and milliseconds. Its totally PRO-DOS, 
DOS 3.3, PASCAL and CP/M compatible. And of course, it works 
better than any other clock with AppleWorks. 

If you're using or writing software for other clock cards, 
you're still covered. Because the H.O. will automatically emu- 
late them. And the Timemaster H.O. adds 14 new commands to 
BASIC. The H.O. even comes complete with two disks full of 
sample programs, including a computerized appointment 
book, a DOS dating program, interrupt programs, and over 30 
programs that others charge extra for — or don’t even offer. 

As a low-cost option, you can add true BSR remote control 
to the H.O, giving you remote control of up to 16 lights and 
appliances in your home or office. 


* Fully PRO-DOS and DOS 3.3, CP/M and PASCAL compati- 

ble * Time in hours, minutes, seconds and milliseconds 
(the ONLY PRO-DOS compatible card with millisecond 
capability); date with year, month, day of week and leap year 
* 24-Hour military format or 12-hour AM/PM format * Eight 
software controlled interrupts so you can run two programs 
at the same time (many examples included) * Allows 
AppleWorks to time and date stamp all data automatically 

* The only clock card that displays time and date on the 
AppleWorks screen * Five year warranty 


Clock price $129.00 


BSR option (may be added later) 


Call to order today, 9 a.m. to 11 p.m. seven days, or send 
check or money order to Applied Engineering. MasterCard, 
VISA and C.O.D. welcome. Texas residents add 5%% sales tax. 
Add $10.00 outside U.S.A. ; 


Fas wa Applied Engineering 
P.O. Box 798, Carrollton, TX 75006 
(214) 241-6060 
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LISTING 1: TURTLE1 (continued) 
437 FSUB  FTMP 
348 ANN OFC $41,$4E ,$47,$4C, $45 438 FSAVE THETA 
341 TWOPI DFC $83,$49,$0F,$DA,$Al ;PI«2 439 RTS 
342 PIBY186 DFC $78,$8E,$FA,$35,$12 ;PI/18@ 448 ; Show turtle 
343 INK DFS 1 ;Turtle "“colour";black or white 441 SHOW LDA SHOFLG 
344 SHOFLG OFS 1 Turtle "show/hide" flag 442 AND #$7F 
345 IXc OFS 2 ;Turtle x-coord., integer 443 STA SHOFLG 
346 IYC DFS 2 ;Turtle y-coord., integer 444 RTS 
347 XC DFS 5 iTurtle X-coordinate,flt.pt. 445 ; Hide turtle 
348 YC DFS 5 ;Turtle y-coord., flt.pt. 446 HIDE LDA SHOFLG 
349 THETA DFS 5 ;Directional angle 447 ORA #$8D 
358 CTABAD DFS 2 ;Hires-print char.table address 448 STA SHOFLG 
351 HPRX DFS 2 ;Hires-print X-coord 449 RTS 
352 HPRY DFS 1 ee “ Y¥-coord 456 ; For HIRES, TEXT,SPLIT, FULL: 
353 CSWSAV DFS 2 ;CSW (char.out.vec.) temp.save 451 ; Syntax: [ name ] ... NO parameters 
354 DIST DFS 5 Flt. pt. dist.var. for FWO/BACK 452 HIRES JSR WAITVID 
355 FTMP OFS 5 ;Misc. FP.& int. scratch vars 453 LDA $CO5B ;graphics 
356 FTMP2 DFS 5 454 LDA $C857 shires 
357 PINC DFS 5 ;Plot- increment 455 RTS 
358 DX DFS 5 ;Plot delta-x 456 TEXT JSR WAITVIO 
359 DY DFS 5 ;Plot delta-y 457 LDA $CO51 i text 
368 XDIR DFS 1 i;X-direction; + or - 458 LDA $CO54 ;page 1 
361 YDIR DFS 1 ;Y¥-direction; + or - 459 RTS 
362 X1TMP DFS 2 462 SPLIT JSR WAITVID 
363 Y1TMP OFS 2 461 LDA $CO53 
364 X2TMP OFS 2 462 RTS 
365 Y2TMP DFS 2 463 FULL JSR = WAITVID 
366 ; Get a character from source input line for 464 LDA $CB52 
367 ; inspection, only. Do not increment pointer. 465 RTS 
368 GETC1 LDY #8 466 ; Select hires screen for display 
369 LOA ($B8) ,Y 467 ; Syntax: [ VIEWH <exp> ] ... If <exp> 
378 RTS 468 | is odd, select screenl; else screen2. 
371 ; Wait for vertical sync. pulse. 469 VIEW JSR EVAL 
372 ; Used to synchronize page swapping. 472 JSR WAITVID 
373 WAITVID PHA 471 LSR 
374 WVD819 LDA $CG19 472 BCS PAGE1 
375 BMI WVD818 473 LDA $CO55 :select page 2 
376 PLA 474 RTS 
377 RTS 475 PAGEL LDA $CO54 
378 ; Get & evaluate expression in line. 476 RTS 
379 ; Return a 16-bit value: A=lobyte, Y=hibyte. 477 ; Select hires screen for plotting 
388 EVAL JSR FEVAL 478 ; Syntax: [ USE# <exp> ] ... if <exp> 
381 JSR FIX 479 ; is odd, select screenl; else screen2, 
382 LDA $Al 48@ PLOT JSR EVAL 
383 LDY $AS 481 LSR 
384 RTS 482 BCS PLOT1 
385 ; Set “colour” of turtle - draw with 483 LDA #340 
386 ; black or white stroke. 484 STA HRPAGE 
387 ; Syntax : [ WHITE ] { BLACK J 485 RTS 
388 ; Set ink = white 486 PLOT1 LDA #$20 
389 WHITE LDA #O 487 STA — HRPAGE 
398 STA INK 488 RTS 
391 RTS 489 ; Clear the hires screen presently 
392 ; Set ink = black 498 , selected for plotting. 
393 BLACK LDA #$FF 491 ; Syntax: [{ CLR ) 
394 STA INK 492 CLR cLe 
395 RTS 493 LDA #$1F 
396 ; Move turtle forward or backward. 494 TAX 
397 ; Syntax: [ FWD <exp> ] [ BACK <exp> ] 495 ADC HRPAGE 
398 ; Where <exp> is any valid algebraic expression 496 STA GBASH 
399 BACK FEVAL DIST 497 LDA #8 
4968 CHS DIST 498 LDY #SFF 
421 JMP = BANDF 499 STA GBASL 
482 FWO FEVAL DIST 588 BIT INK 
493 BANDF FLOAD THETA 581 BYC CLR1B 
404 JSR COS INE ;tmp := cos(theta) 582 TYA 
485 FMPY DIST ;tmp := d«cos(theta) 583 CLR1¢ STA (GBASL) ,Y 
496 FSAVE DX ;( save delta-x ) 524 DEY 
497 FADD XC ;tmp.xc := c+d«cos(theta) 595 BNE CLR16 
498 FSAVE FTMP 586 STA (GBASL) ,Y 
499 FLOAD THETA 587 DEC GBASH 
418 JSR SINE 588 DEX 
411 FMPY DIST 599 BPL CLRI@ 
412 FSAVE DY 5108 RTS 
413 FADD YC 511 ; Put turtle at centre of screen, or 
414 FSAVE FTMP2 512 ; at origin 
415 JSR DRAWL IN ;* plot a line « 513 ; Syntax: [ CENTER ] { NEST J 
416 RTS 514 CENTER LDX #9 
417 ; Turn turtle left or right, or 515 CENS19 LDA CCORDS , X 
418 ; head in some direction. 516 STA XC,X 
419 ; Syntax: [ LEFT <deg> ] [ RIGHT <deg> ] 517 DEX 
4208 ; [ TURNTO <deg> ] 518 BPL CENS18 
421 ; <deg> specifies angle in degrees. §19 LDX #3 
422 HEAD FEVAL THETA 528 CEN@28 LDA ICORDS , X 
423 FMPY PIBY189 521 STA IXC,X 
424 JMP = MOD2PI 522 DEX 
425 LEFT FEVAL FTMP 523 BPL CEN@2¢ 
426 CHS FTMP 524 RTS 
427 FLOAD FTMP 525 CCORDS DFC $88 ,$OC ,$00,$828,$80 ; 149.8 
428 JMP LANDR 526 OFC $87 ,$48,$90,$82,$90 ; 96.8 
429 RIGHT FEVAL FTMP 527 ICORDS ADDR 148 
438 LANOR FMPY PIBY189 528 ADDR 96 
431 FADD THETA 529 NEST LDX #9 
432 MOD2PI FSAVE FTMP 5308 LDA #8 
433 FLOAD TWOPI 531 NES@128 STA XC,X 
434 FDIV FTMP 532 DEX 
435 JSR INT 533 BPL NES@18 
436 FMPY TWOPI 534 LDX #3 
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612 
613 
614 
615 
616 
617 
618 
619 
628 
621 
622 
623 
624 
625 
626 
627 


NES 


EXC 


JUM 


JCE 
JCE 


628 


B28 STA 
DEX 
BPL 
RTS 
Alias for REMark statement 
Syntax: [  ! <comments> ] 
LAIM JMP REM 
Perform a BASIC subroutine call with 
an expression specifying the target 
line. Syntax: { DO <exp> ] Where 
<exp> is any valid expression resolvable 
to a 16-bit integer. 
LDA #3 
JSR CHKDEP 
LDA LASCHR+1 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
LDA 
PHA 
JSR 
STA 
STY 
JSR GOTO1 
JMP. NEXT 
Position turtle at absolute x,y coord 
Syntax: [ JUMP <Xexp> <Yexp> J] 
[ JUMP <Xexp> <Yexp> TO <Xexp> <Yexp> TO... ] 
Example: the following expression is valid. 
JUMP TO CENTER TO NEST TO X1,Y1 TO SQR(A)+37,15.4 
PTO LDX #$FF 
CMP #TOTOKE 
BNE JMP@5 
INX 
STX 
BNE 
JSR 
CMP 
BNE 
JSR 
JSR 
JMP 
CMP 
BNE 
JSR 
JSR 
JMP 
FEVAL 
JSR 
FEVAL 
LDA 
PHA 
BIT DIST 
BVC JMP68 
LDA #8 
STA DIST 
JSR HIDE 


IXC,X 


NES@29 


;Check nesting depth. 
;Push last-character ptr. 


LASCHR 
LINENO+1 ;Push current line number. 
LINENO 

#$BO ee 

EVAL 


$59 
$51 


;Get destination (target) 
; line number. 


;Do it ! 


;do we have a TO token ? 


DIST ;( just a temporary loc...) 
JMP26 ;branch if not a TO token. 

GETC2 ; ignore TO, check next token/chr 
#CENTOKE ;is it a CENTER token ? 

JMP39 
GETC2 
JCENTR 
JMP5 
#NESTOKE ;is 
JMP48 
GETC2 
JNEST 
JMP58 
FTMP 
CHKCOM 
FTMP2 
SHOFLG 


;( throw token away.) 


it a NEST token ? 


;( throw token away.) 


;not any token we can use - 
:;try to get a set of x,y coords. 


;is this the lst coord set, and 
specified without a TO clause ? 
;yes-reset flag-this seq. must 
;be executed *onces, only. 
;jump to specified coords, 
;do «not« draw a line. 
;Get delta_X & delta_Y 


but 


FTMP , XC ,DX 

FTMP2, YC, DY 
JSR DRAWLIN + plot a line « 
SHOFLG 
GETC3 
#TOTOKE 


JSMP18 


JSR 
CMP 
BEQ 
RTS 

NTR LDX #9 

18 LDA CCORDS , X 
STA FTMP ,X 
DEX 
BPL JCE19 
LDX #3 
LDA ICORDS , X 
STA IXC,X 
DEX 
BPL 
RTS 
LDX #9 
LDA #8 
STA FTMP ,X 
DEX 
BPL JNE18 
LDX #3 
STA IXC,X 
DEX 
BPL 
RTS 


;is there another TO clause ? 
;if so, repeat. 


;copy CENTER coords to XY save 


JCE29 


;copy NEST coords to XY save 


JNE2 


COP TURTLE2,D2 


END OF LISTING 1 


continued on page 26 


Viewmaster 80; 
the sharpest 
80 column card 
of them all. 


er a a 


Now, get great resolution and 
total software compatibility 


for your Apple IT® or IT+® 


ne look at the chart will give you some of the reasons 

there’ only one smart choice in 80 column cards for 
your Apple. But the real secret to Viewmaster 805 success is 
something even better: Total compatibility. 

The Viewmaster 80 works with all 80 column applica- 
tions, including DOS 3.3, PRO-DOS, CP/M, Pascal, WordStar, 
Format II, Easywriter, Applewriter II, Supertext 80, Zardax, 
Apple PI, Letter Perfect, dBASE II, Visicalc, Multiplan, and 
hundreds of others. 

And the Viewmaster 80 delivers a super sharp, state-of- 
the-art display with a 7 x 9 character matrix for clear, easily 
readable characters. Here are just a few of the powerful 
features the Viewmaster 80 delivers for a great price ($139): 


* 80 Characters by 24 lines * Fully compatible with all 
Apple languages and software ¢ Super sharp 7 x9 
character matrix with true descenders ¢ Highest com- 
patibility with existing 80 column software ¢ Power and 
input connector for light pen * Very low power con- 
sumption * High speed (18 MHZ) scroll rate ¢ Upper 
and lower case characters with true descenders, both in- 
verse and normal; all on-screen editing functions are sup- 
ported * User-definable cursor shape * Compatible 
with Apple II, 11+ and Ile * Five year warranty 


Call to order today, 9 a.m. to 11 p.m. seven days, or 
send check or money order to Applied Engineering. 
MasterCard, VISA and C.O.D. welcome. Texas residents add 
5%% sales tax. Add $10.00 outside U.S.A. 


Fas wa Applied Engineering 
P.O. Box 798, Carrollton, TX 75006 
(214) 241-6060 
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SOME HISTORIC BREAKTHROUGHS 


DON’T TAKE AS MUCH EXPLAINING 
AS COMPUSERVE. 


But then, some historic 
breakthroughs could only 
take you from the cave to 
the tar pits and back again. 


CompuServe, on the other hand, 
makes a considerably more civilized 
contribution to your life. 

It turns that marvel of the 20th 
century, the personal computer, into 
something useful. - 

Unlike most personal 77.5 
computer products you 
read about, CompuServe 
is an information service. 
It isn’t software. It isn’t 
hardware. And you don’t even have 
to know a thing about programming 
to use it. You subscribe to CompuServe 
—and 24 hours a day, 7 days a week, 
it puts a universe of information, 
entertainment and communications 
right at your fingertips. 


A few of the hundreds 
of things you can do with 
CompuServe. 


COMMUNICATE 


EasyPlex™ Electronic Mail lets even 
beginners compose, edit, send and 
file messages the first time they get 
online. It puts friends, relatives and 


KSAT | 
mele 


business associates—anywhere in 
the country —in constant, conven- 
ient touch. 


CB Simulator features 
72 channels for “talking” 
with thousands of other 
enthusiastic subscribers 
throughout the country % 
and Canada. The chatter 
is frequently hilarious, the “handles” 
unforgettable, and the friendships 
hard and fast. 


More than 100 Forums welcome 
your participation in “discussions” 
on all sorts of topics. There are 
Forums for computer owners, 
gourmet cooks, investors, pilots, golf- 
ers, musicians, you name it! Also, 
Electronic Conferencing lets busi- 
nesses put heads together without 
anyone having to leave the shop. 


Bulletin Boards let you “post” 
messages where thousands will see 
them. You can use our National 
Bulletin Board or the specialized 
Bulletin Boards found in just about 
every Forum. 


HAVE FUN 


Our full range of games includes 
“You Guessed It!”, the first online 
TV-style game show you play for real 
prizes; and MegaWars III, offering the 


ultimate in interactive excitement. 
And there are board, parlor, sports 
and educational games to play alone 
or against other subscribers 
throughout the country. 

Movie Reviews keep that big 
night at the movies from being a 
five star mistake. 


SHOP 
THE ELECTRONIC MALI" gives 
you convenient, 24-hour-a-day, 
7-day-a-week shopping for name 
brand goods and services at discount 
prices from nationally known stores 
and businesses. 


SAVE ON TRIPS 


Travelshopper™ 
lets you scan flight 
@ availabilities (on 
virtually any 
airline — world- 
wide), find airfare 
bargains and order 
tickets right on your computer. 


Worldwide Exchange sets you up 
with the perfect yacht, condo, villa, 

or whatever it takes to make your next 
vacation a vacation. 


Ato Z Travel/News Service 
provides the latest travel news plus 
complete information on over 20,000 
hotels worldwide. 


MAKE PHI BETA KAPPA 


Grolier’s Academic American 
Encyclopedia’s Electronic Edition 
delivers a complete set of encyclope- 
dias right to your living 
room just in time for 
today’s homework. It’s 
continuously updated ... 
and doesn’t take an inch 
of extra shelf space. 
The College Board, operated by the 
College Entrance Examination 
Board, gives tips on preparing for the 
SAT, choosing a college and getting 
financial aid. 


KEEP HEALTHY 


Healthnet will never replace a real, 
live doctor—but it is an excellent and 
readily available source of health and 
medical information for the public. 
Human Sexuality gives the civiliza- 
tion that put a man on the moon an 
intelligent alternative to the daily 
“Advice to the Lovelorn” columns. 
Hundreds turn to it for real answers. 


BE INFORMED 


All the latest news is at your 
fingertips. Sources include the AP 
news wire (covering all 50 states plus 
national news), the 
Washington Post, 
USA TODAY Update, 

@ specialized business 
& and trade publica- 
tions and more. You 
can find out instantly what Congress 
did yesterday; who finally won the 
game; and what’s happening back in 
Oskaloosa with the touch of a button. 
And our electronic clipping service 
lets you tell us what to watch for. We'll 
electronically find, clip and file news 
for you. ..to read whenever you’d like. 


INVEST WISELY 


Comprehensive investment help 
just might tell you more about bis 
stock you're looking at ie 
than the company’s 
Chairman of the Board 
knows. (Don’t know who 
he is? Chances are, we 
can fill you in on that, 
too.) CompuServe gives you com- 
plete statistics on over 10,000 NYSE, 
AMEX and OTC securities. Historic 
trading statistics on over 50,000 


stocks, bonds, funds, issues and 
options. Five years of daily com- 
modity quotes. Standard & Poor's. 
Value Line. And more than a dozen 
other investment tools. 

Site II facilitates business 
decisions by providing you 

with demographic and sales 
potential information by state, 
county and zip code for the 
entire country. 

National and Canadian business 
wires provide continuously updated 
news and press releases on hundreds 
of companies worldwide. 


GET SPECIALIZED 
INFORMATION 


Pilots get personalized flight plans, 
weather briefings, weather and radar 
maps, newsletters, etc. 
Entrepreneurs use CompuServe 
too for complete step-by-step guide- 
lines on how to incorporate the IBMs 
of tomorrow. 

Lawyers, doctors, engineers, mil- 
itary veterans and businessmen 
of all types use similar specialized 
CompuServe resources pertinent to 
their unique needs. 


And now for the 
pleasant surprise. 

Although CompuServe makes the 
most of any computer, it’s a remark- 
able value. With CompuServe, you 
get low start-up costs, low usage 
charges and local phone-call access 
in most major metropolitan areas. 


Here’s exactly how 
to use CompuServe. 
First, relax. 
There are no advanced saat 
skills required. 
In fact, if you know 
how to buy breakfast, if oe il 
you already have the 
know-how you'll need Cee 
to access any subject |! ‘' | > 
in our system. That’s because it’s 
“menu-driven? so beginners can 
simply read the menus (lists of 
options) that appear on their 
screens and then type in their 
selections. 
Experts can skip the menus and 
just type in “GO” followed by the 
abbreviation for whatever topic 
they’re after. 


CIRCLE NUMBER 6 


In case you ever get lost or con- 
fused, just type in “H” for help, and 
we'll immediately cut in with instruc- 
tions that should save the day. 

Besides, you can either ask ques- 
tions online through our Feedback 
service or phone our Customer 
Service Department. 


How to subscribe. 

To access CompuServe, you'll 
need a CompuServe Subscription 
Kit, a computer, a modem to connect 
your computer to your phone, and 
in some cases, easy-to-use com- 
munications software. (Check the 
information that 
comes with your 
modem.) 

With your Sub- 
scription Kit, you'll 
receive: 
ma $25 usage credit. 
ma complete hardcover Users Guide. 
m your own exclusive user ID 

number and preliminary password. 
ma subscription to CompuServe’s 

monthly magazine, Online Today. 

Call 800-848-8199 (in Ohio, 
614-457-0802) to order your Sub- 
scription Kit or to receive more 
information. Or mail this coupon. 

Kits are also available in computer 
stores, electronic equipment outlets 
and household catalogs. You can also 
subscribe with materials you'll find 
packed right in with many com- 
puters and modems sold today. 


| LJ Please send me additional information. 
| LJ Please send me a CompuServe Subscription Kit. 


| LJ 1am enclosing my check for $39.95, plus $2.50 
handling. (Add sales tax if delivered in Ohio.) 


Please make check payable to CompuServe 
Information Services, Inc. 


| 

| 

| C1 Charge this to my VISA/MasterCard 
| # 

| Expiration Date 
| Signature 
| Name 

| Address 

| City 

| State______ Zip 
: MAIL TO: 

| 

| 

| 

| 


CompuServe: 


Customer Service Ordering Dept. 
PO. Box L-477 

Columbus, Ohio 43260 

An H&R Block Company 


EasyPlex and ELECTRONIC MALL are trademarks of CompuServe, 
Incorporated. Travelshopper is a service mark of TWA. 


PRI-3701 
sl 


PRO-COPY 


PRODOS UTILITY SYSTEM 


Copies Disks & Files 
Verifies Disks & Media 
Formats New Disks 
Drive Speed Check 
Complete Sector Editor 
Quick Disk Eraser 
Alphabetize Volumes 
View Any File 

Display Disk Map 

Backup AppleWorks Files 
Backup & Restore Volumes 
Such as Hard Drives 
Supports ALL ProDOS 
Storage Devices 
Completely Menu Driven 


$39.95 


Call or Write: Micro Data Products 
5739 South Olathe Court 
Aurora, CO 80015 
(303) 699-1161 voice, 680-9292 modem 
ProDOS and AppleWorks are trademarks of Apple Computer, inc. 
Dealer Inquiries Welcome 


CIRCLE NUMBER 7 


GBBS “PRO” 


BULLETIN BOARD SYSTEM 


® Multiple Bulletin Boards v 

Boards sha 
® Password Protection we 
™ Private Electronic Mail 
= Xmodem up/Downloads “Introductory” 
® Voting/Survey Section Price 
® Full Editor/Word-wrap 
™ Over 30 Security Flags $95 
® 300-2400 Baud Support 
= Auto Data Compaction ProDOS 
@™ Very User Friendly y ealablel 
= Supports: available! 


Micromodem II or Ile 

Apple Cat w/212 board 
Smartmodem 300/1200/2400 
Applemodem 300/1200 

and many more 


Call or Write: Micro Data Products 
5739 South Olathe Court 
Aurora, CO 80015 
(303) 699-1161 voice, 680-9292 modem 


Micromodem and Smartmodem are trademarks of Hayes Microcomputer Products. 
Apple-Cat is a trademark of Novation. Applemodem is a trademark of Apple Inc. 


Dealer Inquiries Welcome 


CIRCLE NUMBER 8 
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LISTING 2: TURTLE2 — Source File for MicroSPARC Assembler 


go - 
1: 
2 
3 
4 
5 
6 
vf 
8 
ae 


98 
91 
92 
93 
94 
95 
96 


RR RRERE REE ERK REE EE REE 
* TURTLE2 * 
* TURTLE BASIC * 
Ae BY J.B. WARD * 
;« COPYRIGHT (C) 1986 « 
;* BY MICROSPARC, INC « 
*« CONCORD, MA @1742 « 
RRR RRR ERR EERE RRR REE REE 
Print a line to hires screen. 
Syntax: [ HPRINT(x,y) ...line... J 
[ HPRINT ...line... J 
Where: "...line..." is any line 
description valid for the "PRINT" 
statement,except for use of "TAB(n)". 
x & y are the hires XY coords of the 
upper left hand corner of the lst 
; Character printed. 
HPRINT JSR GETC1 ;Get next char... 
CMP #$28 ;If it's not "(",assume no 
BNE HPRO30 ;xy coords are specified. 
JSR GETC2 ; (throw left paren away) 
FEVAL FTMP ; get x-coord 
JSR CHKCOM ; comma? 
FEVAL FTMP2 >; get y-coord 
JSR CHKRPA right paren? 
JSR CHKXY 
LDA Y2TMP 
STA HPRY 
LDX #$FF ;"divide" X-coord by 7 
LDA X2TMP 
HPRO19 INX 
CMP #7 ;HPRX := int(x/7) 
BCC HPRO20 ;HPRX+1 := x mod 7 
SBC #7 
JMP HPRO1B 
HPRO20 STX HPRX 
STA HPRX+1 
HPRO38 LDA CSWL ;Save character-output vector; 
STA CSWSAV ;Replace it with our addr. 
LDA CSWH 
STA CSWSAV+1 
LDA #HPRDRV 
STA CSWL 
LDA #HPRDRV/ 
STA = CSWH 
JSR = GETC3 
JSR PRINT2 ;**«Call PRINT routines«« 
LDA CSWSAV 
STA CSWL 
LDA  CSWSAV+1 
STA CSWH 
RTS 
: Fix & check x-y coords 
CHKXY FIX FTMP , X2TMP 
FIX FTMP2 , Y2TMP 
LDA X2TMP+1 
BEQ  CXY18 -1<x<280 ? 
CMP. #2 
BCS CxY999 
LDA X2TMP 
CMP. #280 
BCS CxyY999 
CXY18 LDA Y2TMP+1 -l<y<192 ? 
BNE CxY999 
LDA Y2TMP 
CMP #192 
BCS Cxy999 
RTS 
CxY999 JMP ILLQTY ;("Illegal Quantity") 
; Hires-print character output driver 
HPRDRV STA $DB 
PHA 
TXA 
PHA 
TYA 
PHA 
LDA $DO 
AND #$7F 
CMP #$28 
BCs HDR915 
CMP #$@D ;Carriage-return? 
BNE HDRO18 
JSR HICR 
JMP HDRO30 
HDRO18 CMP #7 ;Bell character? 
BNE HDR@15 
JSR BELL 
JMP HDRO39 
HDR@15 SBC #$28 
STA $DB 
LDA #D 
ASL $DO 
ROL 
ASL $DG 
ROL 


continued on page 29 


for Apple Il, I+ and He 
JE520AP.... $119.95 
JE523TS ssotwar) $ 9.95 


Serving the 


Computer Enthusiast 


JE614....... $49.95 


for Apple Il, I+ /le and Iic 
AMON...... $99.95 


AJS-1....... $19.95 


UJS-1....... $29.95 


Cooling Fan 
for Apple Il, Il+ and /le 


APF-1....... $39.95 


Switching 
Power Supply 
for Apple Il, ll+ and Ile 


KHP4007. . . . $39.95 


Parallel Printer 
Interface 
for Apple [ic 
MW-100..... $69.95 
DC9200A sv0C xformer $3.25 


VERSACARD 
for Apple Il, Il+ and /le 
VERSACARD. . . . $169.95 
PM-SC (erial Cable) . . . $24.95 
PM-PC (Parallel Cable) . . . $24.95 


apple Works*' 
Oompatible! 


Now you can double the memory capacity and get 
an 80-column display format for your APPLE /le* 
computer at an affordable price. Just plug the 
JE864 card into your APPLE* and expand your dis- 
play to 80 characters per line. Perfect for word 
processing. The JE864 also features 64K bytes of 
additional memory to allow programming not pos- 
sible with standard APPLE /le* computers. Complete 
documentation included. 


JE864............. $69.95 


The JE860 RAM Card allows the 
Apple* Il and Il+ computers to expand 
from 48K to 64K. Complete with 
instructions. 


JE860........... $39.95 


Since 1974 


128K RAM Card** Bik 


The JE868 is functionally compatible with the Apple 
Il language card and can be utilized with all software 
that can be used with a standard 16K card. The 
JE868 requics no modifications to your Apple 
computer. Five key software programs are included: 
Memory Management System, utilities, diagnostics, 
demos, and RAM disk emulators for DOS 3.3, CP/M 
and Apple Pascal. Also features DOS relocator. 
Complete with instructions. 


JE868 (Expand-A-RAM) ...$119.95 


Applesurance Diagnostic 
Disk Controller Card 


The JE877 serves as a diagnostic tool, an assur- 
ance/maintenance tool and a dual disk drive con- 
troller. The JE877 will verify and check the operating 
hardware of your system each time you turn on your 
Apple ll, ll+ or /le* Test your RAM, ROM, CPU, and 
disk drives. Diagnostic routines may be cancelled 
at the touch of a key. Complete with instructions. 


JE877 (DRV-1/Applesurance Il) . . . $69.95 
Parallel Printer Card 


The JE880 Printer Interface board is an intelligent 
interface to most of today’s popular dot-matrix 
graphics printers. The JE880 is fully compatible 
with Apple CP/M, Apple Pascal (or FORTRAN), and 
most other operating systems and software pack- 
ages available for Apple ll, Il+ and /le* The JE880 
is shipped configured for the Centronics standard 
and can be re-configured for other standards if 
necessary. Advanced text printing features include: 
video screen echo ON or OFF, auto/disable linefeed 
after carriage return, set/clear the 8th bit of the 
output data, set left margin and more! Complete 
with instructions. 

. 2... $59.95 


JE880 (PRT-1). . 
Parallel/Serial Buffer Card 


The JE883 provides the user with up to 64K of addi- 
tional or buffered memory (18 pgs. of information). 
Using the parallel jumper cable supplied, the JE883 
will attach to the JE880 (above). Parallel Card needed 
for operation. The JE883 includes a standard par. 
allel input with both parallel and serial (RS232) 
buffered Sutures With these features you may ac- 
cess and buffer information to two types of printers 
(one serial, one parallel) simultaneously. Complete 


with instructions. 
JE883 (P/S Buffer). . $79.95 


Peco reerncre | 
ameco 


PROMPTS 


en ooUcT SINC 


KEYBOARD (KB-A68): 
+ 68 Keys - 15-Key Keypad - Direct con- 
nection with 16-pin ribbon connector 
+ Special features include automatic-key 
repeat, cursor control/numeric keypad, 
46 predefined function keys (Applesoft™, 
DOS commands and CP/M™), 10 user- 
definable keys and more! + Color (keys): 
white/grey - Size: 14%"L x 5%"W x 1%2"H 
CASE (EAEC-1): 
+ Accommodates KB-A68 - Pop-up lid 
for easy access - Fits power supply and 
motherboard « Size: 15%"L x 18"D x 4%"H 
Part No. Description Price 


KB-EA1 Apple Keyboard and Case. 
KB-AG8 __68-Key Apple Keyboard only... ... 
EAEC-1 Expanded Apple Enclosure Case only. 


$20.00 Min. Order - US. Funds Only 
Calif. Residents Add 6% or 612% Sales Tax FREE 1986 Jameco Catalog 
Shipping - Add 5% plus $1.50 Insurance Prices Subject to Change 
Send S.A.S.E. for Quarterly Sales Flyer! 


1355 SHOREWAY ROAD 
BELMONT, CALIFORNIA 94002 
Phone Orders Welcome (415) 592-8097 
Telex No. 176043 


1/86 *APPLE, APPLE Il, Il+, /le, lic and Macintosh 
are registered trademarks of APPLE Computers 


Send $1.00 Postage for your . 


+ Belt-driven - 143K formatted storage 
+ Color matches Apple Computer 
+ Works with Apple Controller or other 
Apple-compatible controllers (JE875) 
+ Complete with connector — just 
plug into your disk controller card 
+ 35 tracks + Size: 6"W x 3%"H x 
8-9/16"D + Weight: 4% Ibs. 
(Disk 


ADD-514 brive) $139.95 
JE875 “Garay” $49.95 


+ Direct drive - 143K formatted - 35 
tracks « Super quiet - Works with 
Apple Controllers or other compati- 
bles (JE875) above - Complete with 
connector-just plug into your con- 
troller + Size: 534"W x 158"H x 8"D 
+ Weight: 4 Ibs. 


ADD-12. . . . $129.95 


+Same specs as ADD-12 (above) 
except no controller necessary. 


ADD-lic. . . . $129.95 


ProModem 1200 


for any RS232 Computer 
PM1200 stand-Aione) $299.95 


MAC PAC 
for your Macintosh 
Includes: ProModem 1200 


external modem, cable and 
ProCom-M software. 


MAC PAC ... $349.95 


OPTIONS for 
PM1200/MAC PAC 


PM-Special #2 Includes 
Comm. Buffer, 512K Memory 


and Display. $249.95 
1200/300 Baud 212A 


Telephone Modem for your 
Apple Il, I+ & //e. Just plug 
in — Hayes compatible! 


PM1200A ... $299.95 


300 Baud for IIc 
Attaches to the rear of Apple 
lic. Built-in speaker. 


PM300c. . . $149.95, 


The Biggest $600 
Apple Program Book 


Nibble Express Volume VI is the biggest collection 
of Apple programs we’ve ever published! Express 
VI is 288 pages packed with over $600* of ready- 
to-type Apple programs from Nibble Magazine 1985. 


Even if you've collected all of the 1985 Nibble 
issues, you’ll want Nibble Express VI with its 
updated listings in one convenient package. And if 
you place your order before the April 15 publica- 
tion date, you'll save $5.00 off the $19.95 cover 
price! 


Here’s a small sample of what you'll get: 


Home/Personal: 


NIBBLE ARCHITECT is a powerful program for planning room 
designs and laying out everything from your garden to your 
office! Scaled, Hi-Res graphics objects can be easily moved, 
changed, copied, and printed. 

NIBBLE MEDIC helps you keep track of your family’s medical 
expenses and prescription history with a variety of editing 
and report formats. 

APPLE HIGHWAYS will make vacation planning a snap by 
finding the best route between 170 major U.S. cities. It 
prints both the route and the mileage between junctions. 


*Commercial value of programs if purchased on disk 
lc Atectembeata tottotete tet ds tt AT EE ART FUR ET BT KN Ot TR] 


C1 Yes! | want to save $5.00! 


Send me Nibble Express VI at the prepublication price 
of $14.95. (Price after April 15, 1986: $19.95) 


Also send me: 


; ie Please add $1.75 shipping/handling per 
o ewer oak a ‘ yl book. For shipment outside the U.S., add 
dah Alea el ice ‘ $2.75 for surface mail or $6.50 for air mail 
. Nibble Express Ill — $17.95 per copy. Purchases payable in U.S. funds 
C] Nibble Express IV — $17.95 only. Massachusetts residents add 5% 
(] Nibble Express V — $19.95 _ sales tax. 
Name Address 
City State Zip Code 


C I've enclosed a check or money order 
(] Charge my: () Visa) MasterCard 


Credit Card Number Expiration Date 


Signature Telephone Number 


Send to: Nibble Publications, 45 Winthrop Street, Concord, 
MA 01742. Or call (617) 371-1660 for ordering with Visa or 
MasterCard. 


EXPRESS \v| 


Programming Utilities: 

NAVIGATOR makes program documentation a breeze! It reads 
your Applesoft programs and prints flowcharts complete with 
graphic symbols. 

APPLESOFT SUPERCHARGER powers your Apple with a set of 
machine language utilities to format output, control user 
input, chain programs with common variables, and much 
more. 

SPOOLER keeps your printer busy while you keep computing. 
It uses the 16K RAM card area to store printer output as you 
work under DOS 3.3. 


Education: 

NIBBLE PLANETARIUM is a Hi-Res star charting system with 
the features of a real planetarium. Display and print the sky 
from any location in the Northern Hemisphere and at any 
time. 

NIBBLE MAESTRO transforms the Apple keyboard into a four- 
octave organ. Graphic notes appear on a staff as you play, 
and you can save tunes to disk and edit or play them later. 


Games: 

THE NIBBLE 500 challenges you to race for glory through a 
curving track with random obstacles and a pit stop. 
PENGUIN is an arcade-style strategy game with increasing 
skill levels. Help Sammy the Penguin fend off the invaders to 
his little island! 


LISTING 2: TURTLE2 (continued) 


8 times to put all 8 
of character to screen. 
screen address) 

char.r row to scrn) 


; Increment char.position 


If at end-of-screen, 
;do a <cr> action. 


in hires screen 


;Entry for tineplot y-adr 


Put one line of a character to screen. 
characters are permitted to cross the 


boundaries. 


;get line of char. 


;-if char.doesnt cross bound. 
;char. does cross... 
;align to span 2 addrs. 


;adjust for colour bit (bit7) 


;put to screen 


;test for RHS of screen. 


97 ASL $08 

98 ROL 

99 STA $D1 
189 LDA = $DB8 
181 ADC CTABAD 
182 STA $D® 
183 LDA $01 
184 ADC CTABAD+1 
185 STA $D1 
196 LDA ~—-HPRX 
187 STA X1TMP 
188 LDY = #7 

199 STY Y2TMP 
118 HDR@28 JSR  HPRADR 
lil JSR HPRPUT 
112 DEC Y2TMP 
113 BPL HDRO20 
114 INC HPRX 
115 LDA —HPRX 
116 CMP = #48 
117 BCC HORO3B 
118 JSR -HICR 
119 HDOR@3G = =PLA 

120 TAY 

121 PLA 

122 TAX 

123 PLA 

124 RTS 

125 ; Do a hires carriage-return action 
126 HICR LDA #8 

127 STA —_HPRX 
128 CLC 

129 LDA ~ HPRY 
138 ADC #8 

131 CMP #185 
132 BCC =HICB18 
133 LDA A 

134 HIC@18 STA HPRY 
135 RTS 

136 ; Get byte address 
137 ; for one hires character 
138 HPRADR CLC 

139 LDA — HPRY 
148 ADC Y2TMP 
141 HPRYAD LDX #68 

142 STX  GBASH 
143 TAX 

144 AND #$38 
145 ASL 

146 ASL 

147 ASL 

148 ROL  GBASH 
149 ASL 

158 ROL GBASH 
151 STA  GBASL 
152 TXA 

153 AND #$CO 
154 LSR 

155 STA = X1TMP+1 
156 LSR 

157 LSR 

158 ORA = X1TMP+1 
159 ORA  GBASL 
1628 ADC X1TMP 
161 STA  GBASL 
162 TXA 

163 AND #$97 
164 ASL 

165 ASL 

166 ORA  GBASH 
167 ADC  HRPAGE 
168 STA GBASH 
169 RTS 

178 ; 

171 ; 

172; 48 “character column" 
173 HPRPUT LDY Y2TMP 
174 LDA ($D8) ,Y¥ 
175 LDY #8 

176 LDX  HPRX+1 
177 BEQ HPUG28 
178 STY $9D 
179 HPU@1@ ASL 

188 ROL $9D 
181 DEX 

182 BNE HPUSi2 
183 ASL 

184 ROL $9D 
185 LSR 

186 JSR = PUTCHR 
187 LDX —HPRX 
188 CPX #39 
189 BCS  HPUG398 
198 INY 

191 LDA $90 
192 HPUS2@ JSR PUTCHR 


;put to screen 


193 
194 
195 
196 
197 
198 
199 
288 
261 
202 
263 
204 
285 
286 
207 
208 
289 
218 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
248 
241 
242 
243 
244 
245 
246 
247 
248 
249 
258 
251 
252 
253 
254 
255 
256 
257 
258 
259 
2608 
261 
262 
263 
264 
265 
266 
267 
268 
269 


278 ; 


271 
272 
273 
274 
275 
276 
277 
278 
279 
288 
281 
282 
283 
284 
285 
286 
287 
288 
289 
298 


RRO H OIRO IORI IOI IC TOI ICR HOHE HCHO CHO 


tee eee eee Cee eee eee eee ee eee eee eee eee) 


HPUS328 RTS 
« PLOTTING 
DRAWLIN LDA #XC 
LDY #XC/ 
JSR FLOAD 
JSR FADHAF 
JSR FIX 
SEC 
LDA $Al 
SBC [xc 
BPL DRL18 
EOR #$FF 
CLC 
ADC #1 
ORL108 CMP #2 
BCC DRL28 
LDA $AB 
STA IXC+1 
LDA $A1 
STA IXC 
ORL28 LDA #YC 
LDY #YC/ 
JSR FLOAD 
JSR FADHAF 
JSR FIX 
SEC 
LDA $Al 
SBC IYC 
BPL DRL36 
EOR #$FF 
CLC 
ADC #1 
DRL38 CMP #2 
BCC DRL48 
LDA $AB 
STA TYC+1 
LDA $Al 
STA I¥c 
ORL49 FIX FTMP ,X1TMP 
FIX FTMP2,Y1TM 
LOX #4 
ORL5O LOA FTMP ,X 
STA XC,X 
LDA FTMP2 ,X 
STA YC,X 
DEX 
BPL DRL58 
JSR LPLOT 
LDX #3 
ORL68 LDA TMPIXC,X 
STA IxXC,X 
DEX 
BPL ORL62 
RTS 
: Plot a line on hir 
LPLOT LDA #8 
STA X1TMP 
LDA OX+1 
STA XDIR 
LDA DY+1 
STA YDIR 
ABS Dx 
ABS DY 
LDX #o 
PLT18 LDA Dx ,X 
CMP DY ,X 
BNE PLT28 
INX 
CPX #5 
BCC PLT12 
PLT26 BCS PLT39 
JSR FOFY 
RTS 
PLT38 JSR FOFX 
RTS 
; Find "“Y-address" 
YADR LDA = TMPIYC+1 
BPL YADI2 
LDA #8 
JMP HPRYAD 
YAD1 BEQ YAD22 
LDA #191 
JMP HPRYAD 
YAD28 LDA TMPIYC 
CMP #192 
Bcc YAD3@ 
LDA #191 
YAD32 JMP HPRYAD 
‘ Find "“x-address"” 
XADR LDA TMPIXC 
STA  XSTRT 
LDA TMP IXC+1 
STA  XSTRT+1 
BPL XAD18 
LDA #8 
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ROUTINES « 

;Fix turtle x,y ;If new x,y 
idiffers from last-plotted x,y 
iby less than 2,then use last 


;plotted x,y to start. 
;Else use new. 


; (take abs value) 


;if abs(newx-lastx) >= 2,then: 
> IXC := fix (XC) 


,TYC := fix (YC) 


P 


;Update turtie x,y 


es screen 


:Save sign of dx,dy 


;See if magnitude of dx 
;is greater or less than mag.dy 


;I1f (mag.dx) >= (mag.dy), plot 
;y as a function of x; Else plot 
>x as a function of y. 


; offset into tine & bitmask. 


;If x<@ , then x :=9 


continued on next page 
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LISTING 2: TURTLE2 (continued) Sas ANDs. (@8RS3<¥ 

291 STA XSTRT 389 STA (GBASL) .Y 

292 STA XSTRT+1 398 PTB28 RTS 

293 JMP XAD22 391 ; Test for all-points-plotted. 

294 XAD1O SEC 392 TSTCTR INC PTCTR+1 ‘(reversed due to "fix" call) 
295 LDA XSTRT If x>279 , then x := 279 393 BNE TCT12 

296 SBC #279 394 INC PTCTR 

297 LDA XSTRT+1 395 TCT1 RTS 

298 SBC #279/ 396 | Get next Y-address 

299 BCC XAD20 397 GNY LDA YDIR 

388 LDA #279 398 BPL GNY 12 branch if moving down. 

381 STA XSTRT 399 SEC 

302 LDA #279/ 420 LDA TMPIYC smoving up; y := y-l 

383 STA XSTRT+1 481 SBC #1 

384 XAD20 ASL XSTRT ‘Divide x by 7;Quotient is 4B2 STA TMPIYC 

305 ROL XSTRT+1 ibyte offset into line ; 483 LDA TMPIYC+1 

386 LDY #7 ;Remainder is index into 484 SBC #6 

387 LDA #O ;bitmask table. 405 STA TMPIYC+1 

388 STA XOFSET 406 JMP = -GNY2@ 

389 XAD36 DEY 487 GNY16 INC TMPIYC ;moving down. y := y+tl 

310 BMI XAD40 488 BNE GNY 28 

311 ROL XOFSET 489 INC TMP IYC+1 

312 ASL XSTRT 418 GNY26 JSR YADR Get new "y-address” 

313 ROL XSTRT+1 411 RTS 

314 SEC 412 ; Get next x-address 

315 LDA XSTRT+1 413 GNX LDA XDIR 

316 SBC #7 414 BPL GNX28 

317 BCC XAD3 415 SEC 

318 STA XSTRT+1 i « XSTRT = MSKIX s 416 LDA TMP IXC imoving left. x := x-1 

319 BCS XAD38 417 SBC #1 

328 XAD49 ROL XOFSET 418 STA TMPIXC 

321 RTS 419 LDA TMP IXC+1 

322.3 Plot Y as a function of X. 426 SBC #O 

323 FOFX LDA DX 421 STA TMP IEXC+1 

324 BNE FOX28 j;Avoid possible div-by-zero. 422 SEC 

325 LDX #4 423 LDA TMPIXC ;Are we beyond RHS of screen ? 
326 FOX18 STA PINC,X 424 SBC #279 

327 DEX 425 LDA TMP IXC+1 

328 BPL FOX1@ 426 SBC #279/ 

329 JMP FOX3@ 427 BCS GNX18 

338 FOX28 FDIV) DY,DX,PINC ;(dy/dx) used to determine 428 LSR PMSK ;no...shift bit mask. 

331 FOX38 LDA #DX ;when to inc.or dec.y-coord. 429 BCC GNX12 

332 LDY #DX/ 4308 LDA #346 

333 JSR PPREP 431 STA PMSK 

334 FOX48 JSR PUTBIT i; « plot a single point. « 432 DEC XOFSET 

335 JSR TSTCTR ; done ? 433 BPL GNX12 ;gone beyond LHS of screen ? 
336 BNE FOX5@ : ( skip if more to do.) 434 LDA #0 syes! pin line at LHS. 

337 RTS 435 STA XOFSET 

338 FOX5S JSR TSTPINC :Add test value to test sum; 436 LDA #1 

339 BCC FOX62 ;Next point up or down 1 bit ? 437 STA PMSK 

348 JSR GNY ;yes: get-next-Y-address. 438 GNX12 RTS 

341 FOX6 JSR GNX 439 . af a moving to right. 

342 IMP FOX4@ 449 GNX2¢8 INC TMP EXC 

343 ; Plot X as a function of Y. 441 BNE GNX38 

344 FOFY LDA DY 442 INC TMPIXC+1 

345 BNE FOY28 443 GNX36 LDA TMPIXC+1 

346 LOX #4 444 BMI GNX49 ;branch if to left of screen 
347 FOY19 STA PINC,X 445 ASL PMSK 

348 DEX 446 BPL GNX48 

349 BPL FOY18 447 LDA #1 

359 JMP FOY38 448 STA PMSK 

351 FOY28 FDIV DX.DY,PINC ; (functions same as “FOFX") 449 INC XOFSET 

352 FOY38 LDA #DY 458 LDA XOFSET 

353 LDY #DY/ 451 CMP #48 ;are we beyond RHS of screen ? 
354 JSR PPREP 452 BMI GNX48 

355 FOY49 JSR PUTBIT ; » plot a single point « 453 LDA #39 ;yes! pin line at RHS 

356 JSR TSTCTR ; done ? 454 STA XOFSET 

357 BNE FOoY52 455 LDA #$48 

358 RTS 456 STA PMSK 

359 FOY5S JSR TSTPINC ;move x up or down by one ? 457 GNX48 RTS 

368 BCC FOY6a ,(skip if not) 458 PT375 DFC $80 ,$48.$08,$20,$088 ; 8.375 

361 JSR GNX 459 ; Prepare temp. areas for plotting a line. 

362 FOY6 JSR GNY 46@ PPREP JSR FLOAD ;Get dx or dy; 

363 JMP FoY4e 461 LDA #PT375 

364 | Put (plot) a bit on screen. 462 LDY #PT375/ 

365 ; axe Entry for plotting «#» 463 JSR FADD 

366 PUTBIT LDA SHOFLG :don't plot if “hiding”. 464 JSR FIX 

367 BNE PTB26 465 LDA SAD 

368 LDA TMPIYC+1  ; don't plot if off-screen. 466 EOR #$FF 

369 BNE PTB28 467 STA SAS 

378 LDA TMPLYC 468 LDA $Al 

371 CMP #192 469 EOR 4#$FF 

372 BCS PTB28 478 STA $Al 

373 LDA TMPIXC 471 LDX #3 

374 SBC #279 472 PPROS LDA IXC,X ;move starting x/y to zero-page 
375 LDA TMP IXC+1 473 STA TMPIXC,X 

376 BMI PTB22 474 DEX 

377 SBC #279/ 475 BPL PPR@S 

378 BCS PTB22 476 ; Prepare TSTSUM & INCVAL.These values tell us when to 
379 LDY XOFSET 477 ; change the value of the dependent coordinate. 

389 LDA PMSK 478 LDA PINC+1 >In "“TSTPINC", INCVAL 

381 ; vax Entry for HPRINT ««« 479 ORA #$8O ;is added to a sum, "TSTSUM". 
382 PUTCHR BIT INK 489 STA INCVAL+1 ;When a carry is generated, we 
383 BVS PTBIB 481 STA TSTSUM+1  ;must increment the dependent 
384 ORA (GBASL) .Y <ink = white 482 LDA PINC+2 ;coordinate value. 

385 STA (GBASL) .Y 483 STA INCVAL 

386 RTS 484 STA TSTSUM 

387 PTB12 EOR #$7F ;ink = black 485 LDY PINC 


continued on page 32 
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CIA Files 

Copy I! Plus—Central Point 
Locksmith 5.0—Omega 

Nibbles Away III 

Copy Master II 128K w/Gr. Dump 
Wildcard |l—Central Point 
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Adventure Construction Set 

7 Cities of Gold or Skyfox 

Murder on the Zinderneuf 

Archon II or One-On-One 

Pinball Construction Set 

Carriers At War or Wilderness 
Reach for the Stars or Bard's Tale 
Europe Ablaze 

Deja Vu 

Racter 

Stephen King’s “The Mist” 

James Bond: “A View To Kill” 
Micro League Baseball 

Capt. Goodnight & Islands of Fear 
Gato 

Ghost Busters or Pitfall |! 

Hacker or Space Shuttle 


Aloazar or Master of the Lamps 
Wizard 

Knight St Diamonds 

Legacy of Lvigamyn 

Return Of Werdna 

Rescue Raiders 

Wisiprint 


Super Zaxxon or Frogger 3 Deep 
The Quest or Ring Quest 
Expedition Amazon, or Xyphus 
Sword of Kadash 
Below The Root 
Swiss Family Robinson 
Millionaire, ‘oon, 
Barron or Squire 

Solo Flight or Nato Commander 
F-15 Strike Eagle or Acrojet 
Gunship or Silent Service 
Amazon or Dragon World 
Fahrenheit 451 or Shadow Keep 
Flight Simulator II 
Championship Lode Runner 
Choplifter! or Karateka 
Pole Position or Zaxxon / / c 
Bruce Lee, Conan, or Mr. Do 
Murder By The Dozen or Felony 
Kings Quest 
Romancing The Throne 

nd Castle Wolfenstein 
Ultima Ill: Exodus or Ultima IV 
Sargon Ii! 
A Mind Forever Voyaging 
Cutthroats, or Seastalker 
Hitchhiker's Guide to The Galaxy 
Deadline, or Starcross or 

SpellBreaker 

Witness, Planetfall, or Enchantor 
Infidel or Sorceror 
Zork II, Zork III, or Suspect 
Zork | or Wishbringer 
Operation Market Garden 
Objective Kursk or Phantasie 
War In Russia 
50 Mission Crush or Broadsides 
Kampfgruppe or Reforger 88 
Imperium Galactum 
Germany 1985 or Carrier Force 
Baltic 85 or Gemstone Warrior 
Geopolitique 1990 or Rails West 
North Atlantic '86 
Battle For Normandy 


SSSSSRANLELZARSSLEGASESSERRSHS 


SSSSSsuuesezsesy Sesssssssyssssssssss SSssssssssssssssssssssssssssss 


REBBBBBBABSBEBBY SBLSESBEBBSSSSRRVVNY 


N 


Apple Mechanic 
Beagle Basic 
Beagle G.PL.E 
Beagle Graphics 
D-Code or Extra K 
Disk Quick or 1.0. Silver 
Dos Bos or Silicon Salad 
Double Take or Pro-Byter 
Fat Cat 
Flex Text or Frame Up 
Pro-Byter 
Pronto Dos or Utility City 
Triple Dump 
yewaces 
Pal ae ler (Mi ft} 

ple: ompiler (Microsoft) 1 
tre V2.6 
Merlin Pro 
Merlin Assembler 
Merlin Combo Pack 
Apple |! Instant Pascal 
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Apple Pascal 1.2 

Turbo Pascal 3.0 

Turbo Tool Box 32. 
Visible Computer: 6502 29. 
The Graphics Magician 35. 
New Complete Graphics Sys. 47. 
Fantavision 32. 
Movie Maker 26. 
Dazzle Draw 37. 
Prince (C.ltoh or Epson) 46. 
Pix-lt 30. 
Take 1 35. 
Blazing Paddles 30 
Sideways 35, 
Fontrix 1.5 55. 
Font Paks 1-13 ea. 1 


DMP Utilities—(Vilberg Bros.) Call 
AppleWorks Modifier 39.00) 
AppleWorks Modifier 128K 49.00 
Elephant SS/DD (10) 11.95 
Maxell SS/DD (10 13.95 
Verbatim SS/DD (10) 13.95 
BASF SS/DD (10) 10.50) 
Memorex SS/DD (10) 13.50 
3M SS/DD (10) 16.95 
Dysan SS/DD (10) 22.95) 
Advanced Logic Systems 

SpellWorks 32.00) 
Apple Access / / (/ /e, / /c only) 59.00) 
Apple Works (/ /e, / /c only) 195.00) 


Apple Writer / / (/ /e, / ic only) 
Quickfile (/ /e only) 


Advanced Logic Systems 


The Handlers (lI +, / /e, / /c) 97.00 
Applied Software Technology 
Versaform / /e, / Ic 45.00 
Artsci MagiCalc ProDos 79.00 
Magic Office System 125.00 
lagic Window I! 79.00 
BPi Systems 
General Accounting Dos 3.3 199.00 
AR, AP, PR or Inv. Dos 3.3 (ea.) 199.00 
General Accounting ProDos 219.00 
ARI/AP/PR or Inv. ProDos (ea.) 219.00 
Continental Software FC.M/FL 58.00 
G/L, A/R, AJP, Payroll ea 133.00 
Home Cataloger 30.00 
Dow Jones Software 
Investor's Workshop 89.00 
The Market Analyzer Plus 199.00 
The Market Microscope 199.00 
Dow Jones Membership Kit 19.00 
Software 
Pie Writer V2.2 89.00 
Human Edge Software 
Communications Edge 88.00 
Management Edge 88.00 
Mind Prober 29.00 
Mind Over Minors Call 
Sales Edge 88.00 
International Solutions 
MouseCalc 89.00 
MouseWord 79.00 
MouseBudget 41.00 
MouseDesk 24.00 
Kensington Microware 
Format | Enhanced 88.00 
Living Videotext 
Think Tank Il+ or / /e 79.00 
MECA Managing Your Money 105.00 
Megahaus ReportWorks 69.00 
MegaWorks 69.00 
Microsoft 
Multiplan {Apple Dos Version) 59.00 
Microstuff Crosstalk 105.00 
Nolo Press Will Writer 29.00 
Organizational Software 
Omnis 3 229.00 
Paladin Flashcalc 59.00 
PBI Software Graphworks 1.2C 59.00 
Jeeves 39.00 
Peachtree 
Back To Basics: GUAR/AP 105.00 
Pinpoint Publishing Pinpoint 45.00 
Practicorp Practicalc II 31.00 
Precision Software SuperBase 59.00 
Quark Catalyst / /e 95.00 
Terminus / /e 55.00 
Word Juggler & Lexicheck / /e 65.00 
Roger Wagner Publishing 
Mouse Write 75.00 
Satellite Software Wordperfect 85.00 
Sensible Software 
Bookends —ProDos 79.00 
Graphics Department 69.00 
The Sensible Speller— 
Dos or ProDos 69.00 
Slerra On-Line 
General Manager |! 129.00 
Screenwriter Protessional 78.00 
Software Arts 
The VisiCalc Package 99.00 
Software Publishing 
PFS: First Success 189.00 
PFS:File, Graph. Report 69.00 
PFS:Write or Plan (/ /e, / /c) 69.00 
PFS:Access (/ /e, / /c) 42.00 
Sorcim/IUS SuperCalc 3a 105.00 
State of the Art 
Electric Checkbook 59.00 
GUAR/AP/Inventory/Payroll 289.00 
Stoneware 
DB Master Business Team 189.00 
DB Master Business Writer 89.00 
DB Master Version Four Plus 169.00 


Apple 
Apple Logo / / 128K (/ /e, / Ic only) 79.00 
Baron's Computer 53.00 


CBS Software Adventure Master 26.00 
America Coast to Coast 24.00 
Dinosaur Dig 24.00 
Forecast or }-Rex 28.00 
Goren's Bridge 49.00 
Mastering The SAT 59. 
Micro Speed Reading 59. 
Success wiAigebra (ea.) 21 
Success w/Math (ea.) 15. 
Davidson & Associates 

Alge-Blaster 

Classmate or Math Blaster 

Speed Reader |! 


Speed Reader Data A, B, C, or D 
Spell-It or Word Attack! 
Designware Body Transparent 
European Nations & Locations 
Grammer Examiner 

Remember 

States & Traits 

DLM 
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Alligator Mix or Demolition Division 

Freddie's Puzzles or Number Farm 

Spelling Wiz or Word Invasion 

Harcourt Brace Computer SAT 

Learning Compa: 

Addition Magician 

Bumble Plot or Reader Rabbit 

Gertrude’s Puzzles or Secrets 

Juggle's Rainbow 

Magic Spell or Word Spinner 

Robot Odyssey or Rocky's Boots 

MECC All Titles in Stock! 

Peachtree/Eduware 

Algebra 1, 2, 3, or 4 

Algebra 5 or 6 

Compu-Read 

Compu-Math: Arithmetic Skills 

Introduction to Counting 

PSAT or SAT Word Attack Skills 

PSAT/SAT Analogy 

Spelling Bee w/Reading Primer 

Witog Skile:|, 2, 3,40r5 
borough Systems 

Master ‘3 Writing Wizard 

Build Book About You 

Original Boston Computer Diet 

Run for the Money or SongWriter 

Scholastic Wizware 

Agent U.S.A. or Turtle Tracks 

Operation: Frog of Logic Builders 

Logo Robot or Kids at Work 

Simon & Schuster 

JK Lasser Money Manager 
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Spinnaker 

Adventure Creator or Trains 
Aerobics or Snooper Troops 
Counting Parade or Sum Ducks 
Delta Drawing 

File & Report or Spreadsheet 
Fraction li 

Grandma's House 

In Search Ot... 

Kidwriteror Alphabet Zoo 
Kindercomp or Kids on Keys 
Treasure Island or Wizard of Oz 
Word Processor 


rd 
Early Games or Music Maestro 
Fraction Factory or Make a Match 
Rainbow Painter or Puzzle Master 
Newsroom 
Newsroom Clip Art Collection 
Terrapin Terrapin Logo 
TimeWorks 
Evelyn Wood Dynamic Reader 
Xerox chivelry 
Exploring Tables & Graphs 1 or 2 
Pic.Builder 
Stickybear Series (ea.) 


Volksmodem 12 

Anchor Signalman Express 
Apple Personal Modem 
Hayes Micromodem / /e 


n 


Sanasrts 
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Hayes 300 Baud Smartmodem / /c 155.00 


Hayes 300 Baud Smartmodem 

Hayes 1200 Baud Smartmodem 

Hayes 2400 Baud Smartmodem 

Novation 2400 Baud 
Standalone Modem 

Novation Apple Cat I! 

Novation 212 Apple Cat II 

Popcom X-100 (1200 Baud) 

Pro Modem 1200 (External) 

Pro Modem 1200A (Internal) 


| Pro Modem 300c 


U.S. Robotics Password 1200 
U.S. Robotics Courier 2400 
Zoom/Modem / /e 
Zoom/Modem / /e Plus 


Applied Engineering: RamWorks 
Applied Engineering: Z-RAM / /c 
Checkmate - Multiview 80/160 
Checkmate —Multiram Cards 
Quadram Multicore Card 
Quadram E-Ram 80 

Apricorn 16K Ramcard Il + 
Saturn 128K Ram 

Neptune 80 Col. 64K Card 
Apricorn 64K Extend-It 

Extend 80 (Caribbean Computer) 
Micro Sci 80/64e 

Videx Videoterm w/SS Inv. 

Videx Ultraterm 

ALS Z-Engine 2.2 

Microsoft Premium Softcard / /e 
Microsoft Softcard I! 

MTC Speed Demon 

Accellerator / /e 


Apple Super Serial Card 

SeriAll Interface Card 

AST Multi 1/0 

Serial Grappler Plus 

Grappler + 

Buttered Grappler + 

Grappler / /c 

Nice Print Sete Labs) 

Finger Print Plus li+, / /e, / /c 
Print-It! (Parallel or Serial) 
Pkaso/U Interface 

Video 7 RGB Interface / /c 
Video 7 64K RGB Interface / /e 
Video 7 Color Enhancer / /e, / /c 
Video 7 Screen Enhancer / /e, / /c 


Rensingicn System Saver 
Cool + Time 

Curtis Diamond 

Curtis Emerald 

Curtis Ruby 

Curtis Sapphire 

Apple Mouse / /e 

Apple Mouse / /c 

Time Trax / /e or / /c Version 
Time Trax / /c System Clock Only 
Hayes Mach II Joystick 
Hayes Mach III Joystick 

Kraft Quickstick / 

Kraft Joystick 

Gibson Light Pen 

Digital Paintbrush System 
Muppet Learning Keys 

Koala Pad Plus 

Key Tronic Keyboard 
Trackhouse Keypad 
Mockingboard A Board 
Mockingboard C Board 
Mockingboard D Board (/ /c) 
Echo II Plus 

The Cricket / /c 

Thunderclock Plus 

Hanzon Universal Data Buffer 


Apple 

ImageWriter |! Color Printer 
ImageWriter (Wide Carriage) 
Scribe Printer 

Brother HR-15XL 

HR-25 

HR-35 

TwinWriter 5 

Fortie/Dynax 

DH45 Dual Head Printer 
Citizen MSP-10 (160 cps) 
MSP-15 (160 cps) 

MSP-20 (200 cps) 

MSP-25 (200 cps) 

C.ltoh ProWriter 8510 SP Plus 
ProWriter 1500 SP Plus 


129.00 
365.00 
579.00 


479.00 
189.00 
359.00 
255.00 
289.00 
259.00 
129.00 
205.00 
389.00 
115.00 
125.00 
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son Panasonic TR120M1 Hi-Res Green 110.00 
LX-80/90 Call 209.00/259.00 | TRI20MD Hi-Res Amber 110.00 
FX-85 For Call | OTS101 Dual Mode Color 10” 165.00 
FX-185 Most Call | OTH103 10” Super Hi-Res RGB 369.00 

i DTM140 14” Super Hi-Res RGB = 319.00 
DX-10/20 Recent Call Pri 

1 inceton Graphics HX-9 409.00 
CBO Tow. Cow Call | 4X12 AGB 439.00 
LQ-800-1000 Prices! Call | RGB-80 Interface 145.00 
LO-1500 Call | Teknika MJ-22 RGB Color Monitor 289.00 
SQ-2000 Call | Sakata SG-1000 Green 105.00 
Hewlett-Packard ThinkJet Call | SA-1000 Amber 115.00 
LazarJet Call | seg eal cote Color i 48:00 

6000 r. A a jor 
Suns Gro0 Pat ox See 339-00 | Taxan 115 12" HiRes Green 109.00 
6100 Par. 339.00 a 
6200 Par. 509.00 | 116 12" Hi-Res Amber 115.00 
6300 Par. or Ser. @59.00 | 220,16" Composite Color, 215.00 
5520 Par. Color Printer 419.00 AY 12" HiRes RGB ea or Banoo) oe 00 
Mannessman Tally 410-80/64 RGB-II Interface 169.00 
MT-85 Apple 345.00 
MT-86 Apple 415.00 
ese SpinWriter e.1.f. 360 379.00 
pinWriter 2030P (20 cps) 625.00 [Home Accountant 39.00 

SpinWriter 3530P (35 cps) 989.00 | Dollars and Sense (II+, / /e) 58.00 
PinWriter P2-2P (180 cps) 495.00 | Dollars and Sense (/ /c 68.00 
PinWriter P3-3P (180 cps) 695.00 | Monogram Forecast (64K or 128K) 38.00 
Okidata Okimate 20 Color Printer 120.00 | Time Is Money 59.00 
Microline 182P 215.00 | Money Street 75.00 
Microline 183P 379.00 | Networth 48.00 
Microline 192P 339.00 | Financial Cookbook 32.00 
Microline 193P 475.00 | Cut and Paste 24.00 
Microline 192 Apple 369.00 | The Write Choice 27.00 
Microline 193 Apple 549.00 | Bank Street Writer 41.00 
Panasonic KXP-1091 229.00 | Bank Street Speller 41.00 
KXP-1092 349.00 | Bank Street Filer 41.00 
KXP-1093 409.00 | Homeword pee 
KXP-3151 379.00 | Homeward Spelt Fj te 
Sliver Reed EXP-400P 209.00 | Gacirippone nroeesione aoa: 
EXP-500P 239.00 mn 24.00 

Compuserve Starter Kit 15.00 
Sli 208.00 Typing Tutor I 15.00 
EXP-770 679.00 ping Tutor II! 31.00 
Star Micronics SG-10 (120 cps) 219.00 | Wster Type 34.00 
SG-15 (120 cps) 79.00 | Crossword Magic 31.00 
SD-10 (160 cps) 339.00 | Micro Cookbook (Ii +, / /e) 23.00 
SD-15 (160 cps) 449.00 | Music Construction Set 25.00 
SR-10 (200 cps) 489.00 | Print Shop 28.00 
SR-15 (200 cps) 585.00 | Print Shop Companion 25.00 
Toshiba P-1340 Parallel 439.00 | Print Shop Graphics Bikey or ll 15.00 
P-341 Parallel 899.00 | Rainbow Paper Pak (300 Sheets) 12.00 
P-1351 Parallel 989.00 
P-351 Parallel 1039.00 

VISA AND MASTERCHARGE ACCEPTED 

For fast delivery send cashier's check, certi- 
Apple fied check or money order. Fortune 1000 & 
ProFile (5 Meg) wiAccessory Kit 779.00 Government checks honored immedi- 
ProFile (10 Meg) wiAccess. Kit 1039.00 | ately—Personal and other company checks 
Apple / ic External Drive 229.00 | allow. giwaeks:t0 clam: Mastercard 6 visa 
Apple DuoDisk wiAccessory Kit 449.00 ingiuce card 3 bral sank nese 
Apple UniDisk v:/Controller 209100 | rere ene ncdare OR EK: Op Sans 
Corvus Systems y ‘ . 
OmniDrive Hard Disks Call | Shipping Charges: Software—$2.50 
Miers Sel Ad Fol 198.00 | Shipments, ada an adaitonal $1.90 US. 
Mic: Full Height 1 shipment itional $1. 
Biers, Bab AS Full reia 129.00 | postal, APO, and FPO add 3% ($5.00 Min 
AS Slimline / /c 165.00 | Alaska or Hawaii add 6% 5205 Min 
Micro Sci C2 Controller 49.00 canadian. orders add 10% ees 
Mitac AD-3C Slimline / /e or / /c 129.00 $28.80. mee except Canada— 
Pico Products ($2590'Min.). 
Apple Half-Height Il +,/ /e, / /c 139.00 | Hardware —please call for shipping charges. 

i 


Quark 
QC-10 Hard Disk / /e, 
QC-20 Hard Disk / /e, 


Amdek 

Video 300G 12” Green Monitor 
Video 300A 12” Amber Monitor 
Color Monitor 300 (Composite) 
Color Monitor 500 (RGB) 
Color Monitor 600 (RGB) 

DVM Ill RGB Interface 

Apple Color Monitor / /e 

Color Monitor / /c 


Ic or Mac 1029.00 
Ic or Mac 1379.00 


Note: We do not guarantee machine com- 
atibility. All products are new and include 
lactory warranty, therefore ALL sales are 

final. Defective software will be replaced by 


j the same item only. Defective hardware wi 


be replaced or repaired at our discretion 
Prices & availability subject to change with- 
out notice. Products purchased in error, sub- 
lect to 15% restocking fee. All returns must 

ave an authorization number. Call (203) 
378-3662 to obtain one before returning de- 
fective products for replacement. 


For items not listed just call: 
Visit Our New Showroom: 
Exit 32 off I-95 
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LISTING 2: TURTLE2 (continued) 584 DFC $22, $22, $22, $2A,$2A,$36,$22,$00 ; W 57 
486 CPY #$81 585 DFC $22, $22, $14, $08,$14,$22,$22.$08 ; X 58 
487 BNE  PPR@7 586 DFC $22,$22,$14, $08, $08, $08, $08,300 ; Y 59 
488 LDA #$FF 587 DFC $3E,$20,$10, $08, $04, $02,$3E,$009 ; Z 5A 
489 STA INCVAL 588 DFC = $3C,, $04, $04, $04, $04, $04,$3C, $08 : [ 5B 
490 STA INCVAL4+1 589 DFC $08 ,$02,.$04,$08,$10,$20,$08,$08 ; \ 5C 
491 STA TSTSUM 590 DFC = $1E, $18, $18,$18,$18,$10,$1E,$00 ; | 5D 
492 STA TSTSUM4+1 591 DFC $88, $1C, $2A, $08, $28 $08,300,300 , A 5E 
493 JMP — PPR2O one DFC = $88, $80. $08, $00 ,$06,$00,$3E.$00 ; _ 5F 
ioe phe? nas hee 594 DFC $08, $28, $08, $00, $00,$00,$00,$00 ; blank 69 
496 LDA #0 595 DFC $08, $08, $GE,$18,$1C,$12,$2C,$80 ; a 61 
497 STA INCVAL 596 DFC $02, $82, $1A,$26,$22,$22,$1E,$08 ; b 62 
498 STA INCVAL+1 597 DFC $80, $00, $1C, $22, $82 ,$02.$3C, $88 ; c 63 
499 JMP —- PPR2B 598 DFC $28, $28, $2C ,$32,$22,$22,$3C,$00 ; d 64 
500 PPRIO CPY  #$89 599 DFC $02, 300,$1C,$22,$3E ,$02,$3C,$08 ; e 65 
501 BCS  PPR20 620 DFC $18,$24, $04, $0E, $24, $04,304,300 ; f 66 
502 LSR _INCVAL+1 681 DFC $08, $80,$3C,$22,$22,$3C,$20,$1E ; g 67 
503 ROR _INCVAL 682 DFC = $82, $02, $1A, $26 , $22 ,$22,$22,$80 ; h 68 
504 INY 683 DFC $88, $08, $OC $08, $98 $08 ,$1C,$88 ; i 69 
Te ie 605 DFC $02'$02 $22.$12,80A,$16.$22,800 | k 6B 
R on $ F ; ; E ; ‘ ‘ ? 
ere eee ager GER MEET ZUSA CORRAL ee 626 DFC $0C $08, $08.$08,$08,.$08,$1C,.$90 ; | 6 
588 LDY | MSKIX 627 DFC $08, $02,$16,$2A,$2A,$2A.$2A,$80 ; m 6D 
599 LDA _BMSKS,,Y 698 DFC = $00, $00, $1A, $24, $24, $24, $24,500 > n 6E 
519 STA PMSK 629 DFC $00, $82,$1C,$22,$22,$22,.$1C,$00 : o 6F 
sme. oe cit Be. Sap san\tue'sag\saa\suelmoiesa 
: ‘ ‘ ‘ , : : .q 
a aes ee ce Uiptee tities neato siete S78 
Bs ‘ , ' ‘ . ‘ , Ss 
SING ee ir Pe ee ene one 614 DFC $00. $04'$0E/$04,$04.$04.$18.$00 : t 74 
516 LDA TSTSUM 615 DFC = $8H, $00, $12, $12, $12, $12, $2C, $08 ; u 75 
517 ADC INCVAL 616 DFC = $B, $00, $22, $22, $22, $14, $08, $08 : v 76 
518 STA TSTSUM 617 DFC = $80, $08, $22, $22.$2A,$2A,$14, $08 : w 77 
519 LDA TSTSUM+1 618 DFC $88, $00,$22,$14, $08,$14,$22,$00 . x 78 
529 ADC INCVAL+1 619 DFC $08, $00,$22,$22,$22,$3C,$20,$1E ; y 79 
521 STA TSTSUM+1 628 DFC = $ 9G, $00, $3E. $10, $08, $04, $3E, 300 » z 7A 
522 RTS 621 DFC = $18 , $88, $08, $04, $08,$08.$19,$808 ; curly [ 7B 
523 : 622 DFC $08, $08, $08,$88,$08,$098, $08,380 ; vertbar 7C 
524 DFS A$FFF8+8-. ; align char. table 623 DFC $04 $88 ,$08,$18,$08,$088,$04,$00 ; curly ) 7D 
525 ULT 624 DFC $28, $02, $04,$2A,$18,$00,$00,$00 : tilde 7E 
526 ; 625 DFC = $7F ,$7F,$7F,$7F,$7F,$7F,$7F,$7F ; rubout 7F 
527 : Hires character table 626 ; 
528 CHRTAB DFC $08,$00,$00,$20,$00,$00,$00,$08 ; blank 2@]| END OF LISTING 2 
529 DFC $88, $08, $88, $08, $00 ,$00,$08,$00 ; ! 21 
538 DFC $14, $14,$14, $88, $00, $008,$00,500 ; " 22 ————— 
531 DFC $14, $14,$3E,$14,$3E,$14,$14,$00 ; # 23 
532 DFC $88, $3C,$8A,$1C,$28,$1E, $08, $00 ; $ 24 
533 DFC = $96 , $26 , $10, $88 $84, $32,$30,$08 ; % 25 | LISTING 3: TURTMAC — Source File for MicroSPARC Assembler 
534 DFC $04,$0A,$0A,$84,$2A,$12,$2C.$09 ; & 26 
535 DFC $88, $88,$88,$20,$08,.$00,$00,300 ;: ' 27 
536 DFC $88,$04,$02,$02,$02,$04,$08.$00 . ( 28 8 
537 DFC $88,$18,$28,$28,$28,$18,$88.$08 ; ) 29 1 (seeeaeeavaneuaenadnwne 
538 OFC $88,$2A,$1C,$88,$1C,$2A,$08,$00 ; « 2A 2 5% TURTMAC * 
539 DFC $88, $88, $08,$3E,$098,$08,900,300 ; + 2B 3 ls TURTLE BASIC * 
549 DFC $08, $808, $08, $08,$08,$08,$04.$20 ; , 2c 4 ie BY J.B. WARD * 
541 DFC $82, $00, $98,53E $08 ,$00,580,300 ; - 2D 5 ,» COPYRIGHT (C) 1986 = 
542 DFC $028, $20, $82, $20,$00,$00,$08,$00 ; . 2E 6 .* BY MICROSPARC, INC = 
543 DFC ©$88,$28, $18,388, $04 ,$02,$00,300 ; / 2F 7 .* CONCORD, MA 1742 « 
544 DFC = $1C,, $22, $32, $2A,$26,$22,$1C, $00 ; O 38 8 eda naa eee e eS 
545 DFC $08, $0C,. $08, $88, $08,$08,$1C, $00 ; 1 31 Eee 
546 DFC $1C,$22,$20,$18, $04, $082,$3E,$00 ; 2 32 18 ; Macro definitions--also uses MACLIB 
547 DFC $3E,$28,$18,$18,$28,$22,$1C,$88 ; 3 33 ll; 
548 DFC = $18, $18, $14, $12, $3E,$10,$10,$00 ; 4 34 12, Evaluate a flt.pt. expression 
549 DFC = $3E, $82, $1E, $28,$28,$22,$1C.$88 ; 5 35 13 FEVAL MAC 
558 DFC $38,$04,$82,$1E,$22,$22,$1C, $88 ; 6 36 14 JSR $DD67 
551 DFC $3E,$20,$18,$88,$04,$04,$84,300 ; 7 37 15 LOX #:A 
552 DFC $1C, $22, $22,$1C,$22,$22,$1C, $88 ; 8 38 16 LDY #:A/ 
553 DFC = $1C , $22 , $22 ,$3C, $28,$10,$0E,$00 ; 9 39 17 JSR $EB2B 
554 DFC $88,$90,$08,$08,$08 ,$00,$00,$00 ; - 3A 18 EMC 
555 DFC $88, $08, $88 $08, $08 $08 ,$04, $00 ; ; 3B 19 ; Take abs. value flt.pt. number 
556 DFC $18, $88 $04, $02, $04 ,$08,$10,$00 ; < 3C 2@ ABS MAC 
557 DFC $80,$00,$3E,$08,$3E,$00,$090,$00 : = 3D 21 LDA :A+1 
558 DFC $84,$08,$109,$28,$18,$08,$04,$80 ; > 3E 22 AND #$7F 
559 DFC $1C,$22,$18,$08,$88 $00,908,300 , ? 3F 23 STA :A+1 
568 ; 24 EMC 
561 DFC = $1C, $22, $2A,$3A,$1A,$82,$3C, $80 ; @ 48 25; Change sign of f.p. number 
562 DFC $88,$14,$22,%22,$3E,$22,$22,$08 ; A 41 26 CHS MAC 
563 DFC $1€,$22,$22,$1E,$22,$22,$1E,$00 ; B 42 27 LDA :A+1 
564 DFC = $1C , $22, $82 , $02, $92 ,$22,$1C, $00 ; C 43 28 EOR #388 
565 DFC $1£,$22,$22,$22,$22,$22,$1E,$08 ; D 44 29 STA :A+l 
566 DFC $3E, $82, $02,$1E,$82,$82,$3E,$08 ; E 45 38 EMC 
567 OFC $3E $02 $82 ,$1E, $82 $82,$02,$00 ;: F 46 31 ; Load Fit.Pt.Accum#1 with f.p.number 
568 DFC =. $3C., $82, , $H2.,, $92, $32 ,$22,$3C, $088 ; G 47 32 FLOAD MAC 
569 DFC $22,$22,$22,$3E,$22,$22,$22,$80 ; H 48 33 LDA #:A 
578 DFC ©$1C, $88, $88 ,$88,$98,$08,$1C,$88 ; I 49 34 LDY #:A/ 
571 DFC $28,$20,$28,$28,$20,$22,$1C, $00 , J 4A 35 JSR $EAF9 
572 DFC $22, $12, $8A,$86,$0A,$12,$22,$28 ; K 48 36 EMC 
573 DFC $62,$82,$82,$02,$02,$02,$3E,$08 ; L AC 37 , Save FIt.Pt.Accum#l to 5-byte field 
574 DFC $22, $36, $2A,$2A,$22,$22,$22,$00 ; M 4D 38 FSAVE MAC 
575 DFC $22,$22,$26,$2A,$32,$22,$22,$08 ; N 4E 39 LDX #:A 
576 DFC = $1C., $22, $22, $22, $22, $22, $1C $08 ; O 4F 49 LDY #:A/ 
577 DFC $1E,$22,$22,$1E, $82,302 ,$092,$00 ; P 58 41 JSR $EB2B 
578 DFC = $1C, $22, $22, , $22, $2A,$12,$2C, $00 ; Q 51 42 EMC 
579 DFC $1E,$22,$22,$1E,$0A,$12,$22,$00 ; R 52 43; Convert floating point to integer 
58a DFC = $1C., $22, $82 ,$1C, $28, $22, $1C, $08 ; S 53 44; FIX f1,il il t= fix(fl) 
581 DFC $3E, $08, $28, $08, $08, $88,$28,$00 ; T 54 45 FIX MAC 
582 DFC $22, $22, $22, $22,$22,$22,$1C,$08 ; U 55 46 FLOAD :A 
583 DFC $22, $22, $22 ,$22,$14,$14, $98,308 ; V 56 47 JSR $E19C 


SSS BE SS IF I 
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48 LDA $A1 

49 STA :B 

50 LDA $AS 

51 STA :B+1 

52 EMC 

53 ; Add two f.p. numbers 

54 ; FADO fl : faccl := fl+faccl 
55 ; FADD f1,f2 : fl c= fl+f2 
56 ; FADD f1,f2,f3 : f3 := f1+f2 
57 FADD MAC 

58 AIF :B/ 

59 FLOAD :A 

68 LDA #:B 

61 LDY #:B/ 

62 JSR $E7BE 

63 AIF :C/ 

64 FSAVE :C 

65 ALS 

66 FSAVE :A 

67 AEN 

68 ALS 

69 LDA #:A 

76 LDY #:A/ 

71 JSR $E7BE 

72 AEN 

73 EMC 

74 ; Subtract two f.p. numbers 
75 ; FSUB fl : faccl := fl-faccl 
76 ; FSUB f1,f2 : fl c= fl-f2 
77 ; FSUB f1,f2,f3 : f3 := f1-f2 
78 FSUB MAC 

79 AIF :B/ 

88 FLOAD :B 

81 LDA #:A 

82 LDY #:A/ 

83 JSR $E7A7 

84 AIF :C/ 

85 FSAVE :C 

86 ALS 

87 FSAVE :A 

88 AEN 

89 ALS 

98 LDA #:A 

91 LDY #:A/ 

92 JSR $E7A7 

93 AEN 

94 EMC 

95 ; Multiply two f.p. numbers 
96 ; FMPY fl : facel := fl«faccl 
97 ; FMPY f1,f2 : fl c= flsf2 
98 ; FMPY f1,f2,f3 : f3 := flsf2 
99 FMPY MAC 

188 AIF :B/ 

181 FLOAD :A 

182 LDA #:B 

183 LDY #:B/ 

1084 JSR $E97F 

185 AIF :C/ 

186 FSAVE :C 

187 ALS 

188 FSAVE :A 

199 AEN 

118 ALS 

111 LDA #:A 

112 LDY #:A/ 
113 JSR $E97F 
114 AEN 
115 EMC 
116 ; Divide two f.p. numbers 
117 ; FDIV f1 : facel := fi/facel 
118 ; FDIV fi,f2 : fl := f1/f2 
119 ; FDOIV fi,f2,f3 : £3 := fl/f2 
128 FOIV MAC 
121 AIF :B/ 
122 FLOAD :B 
123 LDA #:A 
124 LDY #:A/ 

JSR $EA66 


JSR $EA66 
AEN 
EMC 


END OF LISTING 3 


LISTING 4: TURTLE 


8890- 28 8B 88 28 A2 
8888- D6 28 2C 89 26 
8819- 93 E® F2 8A DD 


88 28 4B 
39 89 4C 
8A 68 8B 


8818- 
8820 - 
8828 - 
8830- 
8838 - 
8840- 
8848 - 
8850 - 
8858 - 
8860- 
8868- 
8870- 
8878 - 
8880 - 
8888 - 
8890 - 
8898 - 
88A0 - 
88A8 - 
88B0- 
88B8 - 
88C0- 
88C8 - 
88D9 - 
88D8 - 
88E9- 
88E8- 
88FQ- 
88F8- 
8900 - 
8988 - 
8918- 
8918- 
8926- 
8928 - 
8930- 
8938- 
8940- 
8948 - 
8950- 
8958- 
8960 - 
8968 - 
8976- 
8978 - 
8980 - 
8988 - 
8990 - 
8998 - 
89AD- 
89A8 - 
89BO- 
89B8 - 
89CH - 
89C8 - 
89D - 
89D8 - 
89EQ- 
89E8 - 
89FQ- 
89F8- 
BABB - 
8AR8- 
8A19- 
8A18- 
8A20- 
8A28 - 
8A36 - 
8A38 - 
8A48 - 
8A48 - 
8A50- 
8A58- 
8A6D - 
8A68 - 
8A76- 


7c 
5D 
EF 
73 
46 
45 
53 
43 
53 
4A 
D4 
45 
44 
42 
54 
De 
91 
F5 
37 
8D 
AQ 
38 
C6 
D8 
8D 
AQ 
25 
AQ 
21 
8C 
DB 
8D 
99 
ce 
A3 
85 
62 
77 
8C 
BA 
8D 
49 
7B 
Qo 
6C 
8a 
Q5 
Bo 
EQ 
9D 
AS 
89 
D6 
9E 
DB 
c9 
88 
Bo 
FO 
GE 
D9 
A2 
06 
88 
Bl 
F6 
4c 
67 
71 
AG 
BA 
4c 
DE 
54 
4E 
Al 


continued on next page 


Diversi-DOS" 
Still The Best! 


The top-rated DOS 3.3 enhancement 
program. Lots of extras! DOS Mover 
frees up 10K memory. Includes new 
insert/delete mode, improved BASIC 
listings, keyboard MACROS, wildcard 
filenames, text file printer, keyboard/ 
print buffers, fast garbage collection, 
and MORE! Works on Apple //c, //e, 
or 64K II+. 


RAM Disk Emulator Now Included 
Use the extra 64K in the //c or //e 
extended 80-column card as a high- 
speed pseudo-disk drive. Also works 
with most 128K cards in slot 1-7. 


DOS 3.3 
Floppy 
13.6 
9.5 


Diversi-DOS 
Floppy 
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2.6 
44.6 14.9 
42.2 12.4 


**52-sector text file 


Time in 
Seconds 
BSAVE* 
BLOAD* 
WRITE** 
READ** 


*Hi-res screen 


0.6 
0.5 
77 
5.5 


Back-up Your Floppy with 


e e tm 
Diversi-Copy 

The FASTEST way to copy (or format) 
unprotected DOS 3.3, ProDOS, Pascal 
or CP/M disks. 
Great for Apple //c! Saves over 2 
minutes per copy, and eliminates those 
annoying disk re-insertions. 
Verifies every byte, so you know your 
copies are good. 
Shows motor speed on each track, 
eliminating a major source of errors. 
Mass produces 1 copy every 18-20 
seconds (may require extra 128K). 
Works on all Apple Il compatibles. 


ProDOS Diversi- 
Copy Copy* 
1-Drive Copy 172 sec. 36 sec. 
(50% Full Disk) 18 insertions 2 insertions 
1-Drive Copy 172 sec. 44 sec. 
(100% Full Disk) 18 insertions 4 insertions 
2-Drive Copy 80sec. 33 sec. 


*On 128K Apple //e or //c 


NEW: Diversi-DIAL” 

Start your own CB-simulator on an 
Apple with 7-modems. New profit- 
making local stations starting all the 
time. Call 313/553-4466 (300-baud). 


24-Hour Toll-Free Ordering 
800/835-2246 ext. 127 (orders only). 
For information call 313/553-9460. 
Disk normally shipped within 24 hours. 
Price includes 1st.class or foreign 
airmail. Return in 30 days for full refund 
if not totally satisfied 

FREE: Dogfight Il arcade game, by Bill 
Basham, included with each disk. 


dst 


DIVERSIFIED SOFTWARE RESEARCH, INC. 

34880 Bunker Hill 

Farmington, Ml 48018-2728 
Visa/Mastercard/C.0.0./Personal Check accepted 


Card 
No. 


XO Diversi-DOS - $30 
O Diversi-Copy - $30 


Exp. 
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8A78- 
8A80- 
8A88 - 
8A9G - 
8A98 - 
8AAG - 
8AA8 - 
8ABO - 
8AB8- 98 
8ACG- AD 19 
8AC8- 67 
8ADB- AD 
8AD8- A9 
8AE@- DD 
8AE8- AD 
8AFOB- 4C 
8AF8- AD 
8BOG- 8A 
8BM8- 92 
8B19- AD 
8B18- 8A 
8B20- 20 
8B28- F9 
8B30- 8A 
8B38- 20 
8B4@- BE E7 
8B48- EB 
8B58- A2 
8B58- 71 
8B69- 8B 
8B68- 20 
8B70- 8D 
8B78- F9 
8B80- A2 97 
8B88- 71 
8B9B- AD 
8B98- 8A 
8BAG- 28 F9 
8BA8- 66 
8BBO- 8A 
8BB8- 29 
8BC@- 2B 
8BC8- 8D 77 
8BDO- 89 
8BD8- AD 59 
8BE9- BF 
8BE8- 69 
8BFO- 20 
8BF8- C7 
8C@B- AD 55 
8CB8- 20 
8C19- 85 
8C18- 18 
8C28- AQ 
8C28- 8A 
8C30- FB 91 
8C38- 60 
8C4B- 8A 
8C48- 8C 
8C50- 88 
8C58- BO 
8C6H- AY 
8C68- A2 
8C7B- 6 
8C78- D3 
8C8H- 76 
8C88- 20 
8C9B- 41 
8C98- Cl 
8CAB- G3 
8CA8- 28 Bl 
8CBZ- 8C 
8CB8- 20 
8CC®@- DD 
8CC8- 29 


v4) 
4) 
4) 
OB 
4) 
54) 
QO 
QO 


BB BO 
54) 
14) 
134) 
54) 
14) 
ih) 
OB 
AS 
CB 
26 
AQ 
8D 76 
92 
8A 


if) 
oN) 
of) 
af) 


17) 
34) 
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8CD8 - 
8CEG- 
8CE8 - 
8CFO- 
8CF8- 
8DB0- 
8DB8 - 
8D10- 
8D18- 
8D20- 
8D28 - 
8D30- 
8D38 - 
8D40 - 
8D48 - 
8D50- 
8D58- 
8D60 - 
8D68 - 
8D79- 
8D78- 
8D80 - 
8D88 - 
8D90- 
8D98 - 
8DAD- 
8DA8 - 
8DBO - 
8DB8 - 
8DCB- 
8DC8 - 
8DDS - 
8DD8 - 
8DEG- 
8DE8 - 
8DFO- 
8DF8 - 
BERD - 
8EB8 - 
8E10- 
8E18- 
8E20- 
8E28- 
8E30- 
8E38 - 
8E40 - 
8E48- 
8E50- 
8E58- 
8E6D- 
8E68- 
8E70- 
8E78- 
8E80- 
8E88 - 
8E90- 
8E98- 
8EAG- 
8EA8 - 
8EBO - 
8EB8 - 
8ECO- 
8EC8 - 
8EDO- 
8ED8 - 
8EED- 
8EE8 - 
8EFQ- 
8EF8- 
8FQO- 
8FQ8 - 
8F10- 
8F18- 
8F20- 
8F28- 


48 


20 
60 
8F 
AQ 
8F 
27 
27 
Co 
B3 
26 
65 
Bl 
19 
FA 
AE 
AS 
AS 
20 
8A 
cg 
8A 
AS 
28 
8A 
c9 
8A 
AG 
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ORDERS ONLY 


TOLL FREE 
1-800-382-2242 


IN CANADA: 
1-800-843-0074 
IN CT: (203) 375-3860 


7 DAYS/WK 
9AM to 11PM EST 


1. WE WILL BEAT ANY COMPARABLE 
ADVERTISED PRICE BY $1 (See Below). 


2. School and corporate purchase orders are 
welcomed. CALL 1-800-874-1108. 

3. Special/rush orders. If something you need 
is not listed, hard to find, or needed in a 
hurry, CALL 1-800-874-1108. ° 

4. Order Status. CALL (203) 375-3860. 

5. FREQUENT PURCHASER PROGRAM. Effec- 
tive 10/14/85, any repeat customer who 
has placed an order after 9/4/85 will 
automatically receive $1 off any order he or 
she places with us. Please mention to your 
operator that you are a repeat customer. 
We value your continuing business. Send in 
$1,000 worth of invoices (representing 
previous purchases) and you will receive a 
coupon worth 1% off any future purchase. 
With $5,000 worth of invoices, receive a 
coupon worth 5% off any future purchase. 

6. SOFTWARE RENTAL LIBRARY. For 25% of 


our price, rent any program for two weeks. 

hoy your rental fee toward purchase if 

you 

7. No additional charges for credit card 
orders. 

8. Convenient hours. 7 days/week: 

9 AM-11 PM EST. 

9. FURTHER DISCOUNTS BY MAIL. Circle the 
items in our ad you want, send the ad in 
with the coupon below and receive $.50 off 
each item! Cut out a competitor’s ad with a 
lower price and we will give you $1 off his 
price (subject to the conditions below). 


ORDER EARLY FOR THE HOLIDAYS. IF ORDER- 
ING AT THE LAST MINUTE, OUR AIR EXPRESS 
SERVICE CAN RUSH YOUR SOFTWARE/HARD- 
WARE TO YOU. HAVE A HAPPY AND SAFE 
HOLIDAYS! 


z Send coupon and list of items desired to: 


\__»_.| DISCOUNT BY MAIL DEPARTMENT 
Northeastern Software, 88 Ryders Lane, Stratford, CT 06497 


To be eligible for the $ 50 per item discount you must: 
1. Fill out all items. 2. Send in our ad with the items you desire cirded. 


Nome. ee 

Address. es 
{Include Company Nome) 

City. = State_ Zip. —_ 

Phone No. at above address. r = 

Check form of payment 

() Visa [1 MasterCard C.0.D. 

{| Certified Check ‘1 Money Order 

Card No. 


Personal Check 


Exp. Date. 


pees seeseeeeee2 


Sal 


EASTERN 


88 Ryders Lane, Stratford, Connecticut 06497 


xtend 80 (CARIBBEAN)............ 78.00 APPLE 
a 22:00 EDUCATIONAL Apple Waiter HE... cece. 112.00 
PRINTERS Fat (al... 19.00 Al Apple Access... 54.00 
pata sere pg =O 31.00 aeons 77-00 APPLIED SoFTWaRe Tecinioiogy «°° 
magewriter Il (NEW!) ....... 2... z i i : 5 
SPECIALS nse IS UNDER ple ER = dee a Te00 COMPUTA or GMAT $2.00 Wn. oo nesoseesseee 44.00 
tei Cece een on WA oll Sorina eee ie Pee TOR est a ten Adventure Master 25.50 Magic Office Systems .............. 123.00 
cies : ‘ 54.00 Mastering the SAT... 57.00 Mogic Cak 3. 55.50 
36-00 DAVIDSON AND ASSOCIATES oS or er ; 
16. 
Cm Nos a ae eee 2:70 SPAAUREOHEE Toco eve ceszevee Ping) ae omy age 
Fokker Triplane 144.00 Word Attack, Mathblaster, or Spellit... 27.50 BPI 
Spellworks 14.50 All Davidson Data Disks ............ 11.95 Gen. Acctg., AR, AP. GL, PAY ........ 195.00 
im 3a00 _DESIGNWARE Gen. Acctg., AR, AP. GL, PAY ProDos 210.00 
Locksmith §.0 73.00 Spellcopter or Spellakazam -. 24.00 BLTIH SUFI WAKE 
1 Wouner louse V 26.50 States & Traits or European Nations . 26.00 Omnis II! 
Si | 32.50 Body Teepe or Mission Algebra 26.00 CONTINENTAL SOFTWARE 
Wildcard It. 26.50 Remember . 44.00 FOR tie : 
Pinpoi 20.00 DLM Home Accountant or a 
pos 16.75 Alien Addition or Alligator Mix 19.00 GL, AR, AP, PAY .. 133.00 
186.00 Meteor Mult. or Minus Mission 19.00 DOW JONES SO! 
ENTERTAINMENT 71.00 Demolition Division or Dragon Mix 19.00 Investor's Workshop . . 86.00 
Spy Hunter or Buck Rogers . . 26.00 JUK Kraft Joystick... 26.00 Ei ble Invasion........ 19.00 Market Analyzer or Micros 198.00 
Tapper or Star Trek... co ag a a es 347.00 Lazerware Lisa V2.6. 53.00 ARE/PEACHTREE Mkt. Mgr. or Spreadsheet Link . 147.00 
Frogger 3-Deep or Super Zax: GUS MMi ca ee 5 158.00 Compu Read. ............ 2.200055 16.00 Membership Kit ................05 18.00 
Sorcerer, Suspect or Infidel 26.00 Be r 34. 00 Compu Math........... 26.50 HAYDEN SOFTWARE 
Cutthroats or Zork | Sa MEE ke Aeeeen eee at $5.00 SAT or PSAT Word Attack Skills 16.00 MWS coskecst ae sscmn cast 27.00 
Tork lor Zotk Il. Soa Me ee $5.00 Spelling Bee & Reon Primer 22.00 HOWARD SOFTWARE SERVICES 
Witness or Seastalker 22.00 22:25 Algebra 1, 2, 3, or 4... 21.00 Real Estate Analyzer Ill............ CALL 
Deadline 28.00 PLATS Algebra 58.6. 25.75 HUMAN EDGE 
Plonetfall or Enchonter....... 22.00 119.00 Writing Skills 1, 2, 3, 4, or 5. 22.00 Communication or Sales Edge ...... .. 88.00 
Hitchhiker’s Guide to the Galaxy 22.00 129.00 Hands on BASIC........ 25.50 Mgt. or Negotiation Edge A 
Murder by the Dozen or Felony . 22.00 74.00 Introduction to Counting. . 19.50 MiMM RIMM est tetas wastes 
Htekeaa Haat te 33.50 Muppet Lea a ng Ke 42.00 Froctions or Decimals .............. 19.50 KENSINGTON 
Lode Runner or Karateko . 20.00 Neptune BD Col 64K 183-00 _ HARCOURT BRACE JOVANOVICH Format Il Enhanced .............. 
Championship Lode Runner. . 20.00 Net Worth . 47.00 Harcourt SAN 5.55 osc feces ook eset 45.50 LIVING VIDEOTEXT 
Choplifiegs So coI0o aeus 20.00 46.00 Harcourt GRE or ACT... 20.2002 52.50 Think Tonk WHE 0.0... 
Reforger 88 or Kampfgruppe. .. 35.50 105.00 ROLIER MEGAHAUS 
50 Mission Crush or Rus West 23.50 28.75 Science Island or Treasure Hunter .. .. . 24.00 Magehinders | siccigiun cited snes s 
Objective Kursk or Phantasie. 23.50 248.00 Easy Graph or Friendly Filer......... 2600. PQOWONS os oie's soins s visi antares 
ee es ee 29.75 128,00 ‘HAYDEN MICROPRO 
23.75 27.00 Word Challenge .................. 12.00 WON Sone Seo cacsuuadea ean ne 
29.75 19.25 LEARNING COMPANY Wordstar Professional.............. 
23.50 16.25 chy soos or pe si caat eats Liebe 
23.50 i i tumper or Reader Rabbit... . .00 WOM 23 iepscceais cv seSa nines 
20°50 Geos ie Con tere ght Masi Spells or Word Spinner... 70.75 MICROSTUE 
Aion Qume Printer Line... 00.0.2... CALL = Saturn 128K Ramcard. 174.00 Soil bones of Lash pag Miia SC SR RRIF RAS A Se th 
47.00 SuuEn Geer Sl Goel He MAGNUM Back To Basics Accounting........... 99.00 
va 30.75 rahe SS a 13.50 Super Speed Reading... 30.00 PRACTICORP 
Night Mission Pinboll . 21.00 Softerm Il SOF TRONS 123,00 cc : PIM M rs ictessios Sae-ciog oa nat sis 28.00 
moor : Weal 29.00 System Saver WENSINGTOM) 58.00 Elementary Series (EACH) ........... 29.00 PRECISION SOFTWARE 
Une 20.75 pisOhe. To ..s cas: 34.00 Math or Health Series (EACH) ........ 29.00 Su ps vskaianeds:, eee 
Wey Wit Wary 23.75 TG Selectaport - 24:75. MAUKEN QUARK 
ra a ESP 14.75 Thunderdodk Plus... 104.00 Math Sequences (EACH) ............ 21.00 Word Juggler w/Lexicheck........... 59.00 
Rendezvous with Rama. . .. 23.00 Time ls Money (TURNING POINT) .. 58.00 Number Chase or Pop R’ Spell........ 24.00 SENSIBL SOFTWARE 
m jonworld or Shadowkeep . . . 23.00 Time Trox IIE or lIC 78.00 PROGRAM DESI Bookends or Sensible Speller......... 67.00 
15 Strike Eagle or Solo Flight . 20.75 Trackhouse Keypads CALL The New Step By Step.............. $2.00 The Graphics Department . . : i 
Nato Commander....... 21.75 Triple Dump...... 21.50 Step By Step I! or Ill... +» $2.00 Report (Ord... eee. eeeeee eee 
Crusade in Europe. . 24.00 Turbo Pascal. 35.95 SCARBOROUGH SYSTI SIERRA-ON iN 
Fahrenheit 451 23.00 Turbo Toolbox 29.95 Build A Book About You 23.50 The General Manoger ll ............ 
Amazon ......... 23.00 Turbo Tutor 20.75 Boston Computer Diet 46.00 Homeword......... 
Expedition Amazon 20.00 Type Faces 10.95 Mastertype’s Writing 46.00 Homeword Speller. 
Position or Zaxxon . 18.75 Typing Tutor Il 14.90 Mastertype’s Filer. . 23.50 Screenwriter IE 2... 0... cece 
oo a ies, 2 a 
or t 23. i : 'un for the Money or Songwriter. a 
PEbortetalen sly ae ACCESSORIES/CARDS/ a, In. 176.00 SCHOLASTIC WIZWARE sarummvuiaiig 
Mind Shadow or Space Sh 23.50 E SOFTWARE Video 7 RGB Interface IIE 94.00 _Foct and Fiction Toolkit IC 23.75 PES. Best Sellers... 2c. .ccscee 
The Quest or Ring Quest . 20.50 Accelerator IIE (TITAN) 104.00 Video 7 RGB Interface lIC . 85.00 Microzine 1-8 (EACH)... .. 23.75 PFS: Access or Proof . . 
‘oveted Mirror... . 20.75 Apple Mechonic........ 0... ae 00 ~——_—Visible 6502 ‘ viet Us or Story Maker . . 23.75 PFS: File or Gra 
Xyphus or Transylvania . 20.50 Apple Mouse llc... "74500 i f Tracks or Agent USA. ......... 23.75 PFS: Report or Write 
Frogger or BC’s Quest for Tires. . 20.75 Apple Mouse lle. 104,00 Operation Frog or Logic Builders ...... 23.75 STONEWARE 
King’s Quest... 29.00 Applesoft Compiler 104.00 Robot or Kids At Work.......... . DB Master 4 Plus 
King’s Quest Il... 29.00 Anoleworks Modifier 64K 38.00 INNAKER SOFTWARE ; 
Micro League Baseball .... . 23.75 Appleworks Modifier 128K. 48.00 Fraction Fever or Face Maker......... N 
Where...!s Carmen San Diego? . 23.75 Applied Eng. OK to IMB. . CALL File and Report or Spreadsheet Es 4 
Summer Games | or ll... ... 23.75 Applied Eng, System Clock . 63.00 Smooper Troops | or2.............. B 
Ken Uston’s Blackjack 41.00 na Ve 103.00 Machine or Grondma’s House... 14.75 
eden eroraent mutes 19.75 104.00 Kindercomp or Kids on Keys ......... 14.75 3 
d Castle Wolfenstein . 19.50 65.00 Word Processor.......... 34.75 DISK DRIVES 
ii ionaire, Baron, or Tycoon 23.75 85.00 Alphobet Zoo or Kidwriter . . 16.75 
i Oued oe eck 23.75 75.00 Wa Sea Olis. 52. cc vase aeost 19.75 nk IC 255.00 
Spitfire Simulator. 24.75 155.00 SPRINGBOARD eile 4 
AisimIl........ he er nae (QUALITY: 24.00 Early Games or Piece of Coke ........ 16.00 tan ne wiAcc. Kit. . 425.00 
Bruce Lee or Conan . 22.50 ot’ Fler, Spell, or Water 50.00 Make A Match or Fraction Factory 16100 2 senor : 
SorgonIll........., 27.50 A ee ep The Newsroom 21:09). nos 
Death inthe Caribbean 20:75 ee Ghis | 31:00 Clip Art Eft for Newsroom 1600 tele 
Miner 2049er or The Heist BE De meen rses o00 ST Simline I 
New disasd Wis cet Giiw S048 ng Pode. Re Challenge Math or The Factory ...... 2975 cn 
ask of he Sun... 7s ee S100 Teaser by Tabs... 75 QUARK 
Adventure Constraint 30-75 hace Muhiview 80/16 215.00 Te a ny QC-10 Hard Disk, UNDER 999.00 
urope Ablaze ........ 75 ' | isk, UNDER ........... J 
Carriers at War............. 30.75 Hons Storter Kit . eee Le eh ean Sr ee QC-20 Hard Disk, UNDER........... 1379.00 
Bard’s Tale or Reach for The Stors . . 28.50 Crossword Magic... 30.00 Terrapin Logo 10 Pack.............. 
Hard Hat Mack 12.75 Saree Pokecienc Fi : TIMEWORKS ODEMS 
Curtis Surge Protectors, From . 28.00 : 
Pinball Construction Set . 21.50 Cut g Paste 23.00 Evelyn Wood Dynamic Reader........ 41.75 212 Apple Cat 353.00 
Music Construction Set . . 24,75 ai es 22.00 WEEKLY READER TE a ae aa 187.00 
The Standing Stone 12.75 Dazzle Drow 35.00 Sticky Beor Series, (EACH) .......... 23.75 Apple Personal Modem 260.00 
One-On-One 24.50 Digital Points System. 174.00 Hayes Smartmodem 300 152.00 
es He ne ..... 16.00 Hayes Micromodem IIE w/SC 1. . 128.00 
24:50 Dolor & ene 7:00 BUSINESS Pope 100 Node 259.00 
13-50 Doss Boss... 13.00 ADVANCED LOGIC SYSTEMS Prometheus 1200 External. 290.00 
37 Double Take 19.00 The Handlers Pockage.............. 95.00 Prometheus Internal INE/II+ 263.00 
09 2 tet ll Pee si os sac sccceeee 92.00 list or Word Hondler............... 44.00 ZoomModemiIE................, 114.00 


***Top rated in a leading consumer magazine 


WE WILL BEAT ANY COMPARABLE ADVERTISED PRICE BY $1 (See Below) 
SCHOOL AND CORPORATE PURCHASE ORDERS ACCEPTED; CALL 1-800-874-1108 


, cortified check, or money order. iesiog Setene [33.08 ne, Honiare eos cl 203-375-3860). COD—Add on additional $2.00. Alaska, Hawoii, Conoda, PO, APO, ond 
$100, tastrcard an Vin (leas node car ne ond expiration dt Gmc en soles tax. Prices subject to change without notice. All returns must have a return authorization number. 


replaced with some item only. Word ot goonies pevty Al 


VISA “engi pi’ dl pil ot thn ph tl i inc cot hs, mbt fs: Th opine ease’ pt ty es. ope 
remoins manoger on duty. 


send cashier's check, 
So seer $100 
replacement. Defective merchandise 
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IS YOUR APPLE I! 
WORD PROCESSOR 
LETTING YOU DOWN? 


STEP UP TO 
GUTENBERG® 


SR 
IF YOU NEED... 


customized screen fonts — to display up to 
115 extra user-defined characters on 
the screen and print them as special 
7x12 dot graphics in your text, auto- 
matically. 


downloaded printer fonts — to dynami- 
cally change the printer’s character set. 
Gutenberg supports font downloading 
into the aun Imagewriter or DMP of 
up to 21 different fonts at 14 print 
pitches in proportional print mode and 
still micro-justifies the print line. 

special alphabets — to print text in many 
different languages, including: Danish, 
Finnish, French, German, Greek, He- 
brew, Italian, Polish, Russian, Spanish, 
Swedish, Syriac, Ukrainian, etc. 

scientific symbols — for any type of techni- 
cal writing. 

graphic pictures — embedded in your 
text, banner headings for newsletters or 
letterheads, or big display lettering. 

flexible print layouts — for best reproduc- 
tion of your document. Gutenberg’s 
advanced formatting language allows 
unrestricted placement of text. 


GUTENBERG® SR 
IS THE ANSWER! 


Gutenberg runs on all Apple // computers or 
compatibles with 64K of memory. Gutenberg 
supports the Apple Imagewriter and Apple 
DMP with printer font downloading, the 
C.Itoh Prowriter, the NEC 8023, all Epson 
MX-100 compatibles with regular graphics, and 
most letter-quality printers without the graph- 
ics option. 


To request your 
FREE 16-page booklet 
“Your Introduction to 

Gutenberg JR+ SR” 
write to: 


Gutenberg Software Limited 
47 Lewiston Road 
Scarborough, Ontario 
Canada - M1P 1X8 


or phone: (416) 757-3320 
or circle the appropriate number 
on the Reader Service Card. 
Apple is a reg. trademark of Apple Computer, Inc. 
CIRCLE NUMBER 12 


January 1986 © Nibble Magazine 
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LISTING 4: TURTLE (continued) 


8F3@- AS Al 8D B2 8A A5 AS 8D | 919G- 4C OF 91 CO 8H BO B8 46 
8F38- B3 8A A9 9C AD BA 28 FO | 9198- AA 66 ADI CB AC 93 91 20 
8F48- EA 20 OC El AS Al 8D B4 | 91AQ- A7 BF 28 C2 8F A4 A3 BY 
8F48- 8A A5 A@ 8D BS 8A A2 B4°| 91A8- AD 91 85 9D 6H G1 G2 B4 
8F5@- BD 97 8A 9D 7C 8A BD 9C | 91BG- BB 1B 28 48 18 AS AB 65 
8F58- 8A 9D 81 8A CA 18 Fl 28 | 91B8- AQ 85 AB AS AC 65 AA 85 
8F60- 6D 8F A2 93 BS AS 9D 78 | 91CB- AC 6H BH BH BH BH BH BO 
8F68- 8A CA 19 F8 68 AY BO 8D | 91C8B- BH BH BH BH BG BH BH BB 
8F7@- B2 8A AD A7 8A 8D BS BA | 91DB- B8 G8 BB BB BH BO B8 BB 
8F78- AD AC 8A 8D Bl 8A AD A7 | 91D8- 14 14 14 B28 BO BB BB BB 
8F8G- 8A 29 7F 8D A7 8A AD AC | 91EG- 14 14 3E 14 3E 14 14 BB 
8F88- 8A 29 7F 8D AC 8A A2 BB | 91E8- B8 3C BA 1C 28 1E 88 BB 
8F99- BD A6 8A DD AB BA DO B5 | 91FG- B6 26 18 BB B4 32 3H BO 
8F98- E8 EM 85 98 F3 BO B4 20 | 91F8- B4 BA BA B4 2A 12 2C BB 
8FAG- 4C 98 6H 20 B9 9B 6B AS | 9208G- B8 BB BB BH BH OH BH OO 
8FA8- A& 19 95 AD BB 4C 7D BE | 9298- B8 G4 B2 B2 B2 B4 B8 BH 
8FB@- FO 95 AY BF 4C 7D BE A5 | 9218- B8 1H 2H 20 28 18 B8 BB 
8FB8- A7 C9 CB 9B B2 AY BF 4C | 9218- B8 2A 1C B8 1C 2A B8 BO 
8FCZ- 7D 8E AS AS 85 A2 AS AG |} 922GH- BH G8 BB 3E G8 BB OH BH 
8FC8- 85 A3 18 B9 AD BB 85 A2 | 9228- BH BH BH OO M8 B8 B4 BB 
8FD@- 85 A3 4C EB 8F 38 AS A2 | 9230- BH OO BH 3E BH BH BH BB 
8FD8- E9 17 AS A3 EO G1 9B BB | 9238- BH BH BL BO BH OH B8 BB 
8FE@- A9 17 85 A2 AD B1 85 AB | 924G- BH 28 1B BB G4 B2 BH BB 
8FE8- 86 A2 26 A3 AD B7 AD BB | 9248- 1C 22 32 2A 26 22 1C BB 
8FFG- 85 9E 88 38 11 26 YE 86 | 9258- B8 BC BB BB V8 B8 1C BB 
8FF8- A2 26 A3 38 AS A3 EY B7 | 9258- 1C 22 28 18 B4 G2 3E BO 
9G0B- 98 FO 85 AZ BY EC 26 YE | 9260- 3E 20 18 18 28 22 1C 2G 
9808- 68 AD A6 8A DO BB A2 B84 | 9268- 18 18 14 12 3E 18 18 BB 
9818- 9D Al 8A CA 18 FA 4C 2E | 9278- 3E 82 1E 28 28 22 1C BO 
9818- 98 AO AG AD BA 2H FO EA | 9278- 38 B4 O2 1E 22 22 1C BB 
9828- AX AB AD 8A 28 66 EA A2 | 9280- 3E 28 18 88 04 G4 B4 BB 
9828- Al A® 8A 28 2B EB AQ AG | 9288- 1C 22 22 1C 22 22 1C BO 
9030- AB 8A 20 3F 91 28 BF 9B | 9298- 1C 22 22 3C 20 18 BE OB 
9838- 20 BF 99 D® G1 6H 20 B4 | 9298- BH BH BB BH B8 BH BB BB 
9B40- 91 9B B3 28 C6 9B 20 E5 | 92AG- BH BH BB BH O8 B8 B4 BB 
9848- 98 4C 35 98 AD AB 8A DO | 92A8- 18 B8 G4 B2 G4 BB 1B BB 
9858- OB A2 G4 9D Al BA CA 18 | 92BP- BH OG 3E BH 3E BH BO BO 
9858- FA 4C 71 98 AQ AB AG 8A | 92B8- 84 88 18 28 18 B8 84 OB 
9B60- 28 F9 EA AO AG AD BA 2H | 92CH- 1C 22 18 BB BB BS G8 BB 
9968- 66 EA A2 Al AM 8A 28 2B | 92C8- 1C 22 2A 3A 1A 82 3C BB 
9878- EB A9 AB AS 8A 28 3F 91 | 92DG- B8 14 22 22 3E 22 22 BB 
9278- 26 8F 99 28 BF 98 DO G1 | 92D8- 1E 22 22 1E 22 22 1E 8 
9888- 68 20 B4 91 9G G3 26 ES | 92EG- 1C 22 G2 G2 G2 22 1C BO 
9888- 98 28 C6 98 4C 78 9B AD | 92E8- 1E 22 22 22 22 22 1E BB 
9898- 77 8A DO 2A AS AB DO 26 | 92FH- 3E G2 B2 1E B2 B2 3E BO 
9898- A5 A7 C9 CH BO 28 AS AS | 92F8- 3E B2 B2 1E B2 B2 B2 BO 
9BAB- E9 17 AS AG 3G 18 EY B1 | 938G- 3C B2 B2 B2 32 22 3C BB 
9BA8- BO 14 A4 9E AS 9D 2C 76 | 9398- 22 22 22 3E 22 22 22 OO 
9Q@BB- 8A 7H O5 11 26 91 26 6B | 9319- 1C G8 G8 B8 BB BB iC BB 
9@B8- 49 7F 31 26 91 26 68 E6 | 9318- 28 28 28 28 28 22 1C OB 
98CG- Al DP G2 E6 AB 6B AD Bl | 932G- 22 12 BA B6 BA 12 22 BB 
98C8- 8A 18 18 38 A5 A7 EO G1 | 9328- B2 G2 B2 B2 G2 G2 3E BB 
9B8DB- 85 A7 AS AB EY BB 85 AB | 933G- 22 36 2A 2A 22 22 22 BB 
98D8- 4C El 98 E6 A7 DO B2 EG | 9338- 22 22 26 2A 32 22 22 OB 
9BEB- A&8 28 A7 BF 68 AD BY BA | 934G- 1C 22 22 22 22 22 IC BB 
9BE8- 19 2D 38 A5 Ad ED B1 85 | 9348- 1E 22 22 1E B2 G2 B2 BB 
9BFO- AS AS AG EY BB 85 AG 38 | 9358- 1C 22 22 22 2A 12 2C BB 
9BF8- A5 A5 E9 17 Ad AG EO B1 | 9358- 1E 22 22 1E BA 12 22 BB 
9190- BO 14 46 9D 98 18 AD 4B | 9368- 1C 22 92 1C 28 22 1C BB 
9198- 85 9D C6 9E 19 88 AD BB | 9368- 3E B8 G8 BB BB BB O8 BB 
9118- 85 9E AD 81 85 9D 6B EG | 937G- 22 22 22 22 22 22 1C BO 
9118- A5 D@ O2 E6 AG AS AG 3B | 9378- 22 22 22 22 14 14 B8 BB 
9120- 18 86 9D 18 14 AO B1 B85 | 938H- 22 22 22 2A 2A 36 22 BB 
9128- 9D E6 9E Ad 9E C9 28 38 | 9388- 22 22 14 B88 14 22 22 BO” 
9130- 88 AY 27 85 YE AD 48 85 | 939G- 22 22 14 B8 88 BB O8 BB 
9138- 9D 68 88 48 BB BH GB 2H | 9398- 3E 28 18 B8 G4 H2 3E HA 
9148- F9 EA A9 3A AS 91 20 BE | 93AG- 3C 04 G4 G4 B4 B4 3C OD 
9148- E7 28 OC El AS AW 49 FF | 93A8- BH G2 G4 BB 1H 28 BH BB 
9158- 85 A® AS Al 49 FF 85 Al | 93B¢d- 1E 18 18 18 18 19 1E OB 
9158- A2 @3 BD 78 8A 95 A5 CA | 93B8- 88 1C 2A 88 88 B8 BB BB 
9168- 18 F8 AD A2 8A B9 8H 85 | 93CH- BH BH OG BH BO BH 3E BO 
9168- AA 85 AC AD A3 8A 85 AD | 93C8- BO BH OG BH OH BH BB BB 
9178- 85 AB AC Al 8A CO 81 DO | 93DG- BH OO BE 19 1C 12 2C BB 
9178- @D AQ FF 85 AQ 85 AA 85 |93D8- B92 B2 1A 26 22 22 1E BB 
9188- AB 85 AC 4C 9F 91 CO 71 |193EB- BH BB 1C 22 B2 B2 3C BB 


continued on page 38 


What every A 


ple [I+ and Ile 


user should ask before 
buying the “Sider” 10 MB hard disk: 


When a company offers a superior qual- 
ity 10 megabyte Winchester hard disk 
for only $695, it’s bound to raise a few 
eyebrows ...and a lot of questions. The 
fact is, you’re probably already wonder- 
ing “Can I really get a 10 megabyte hard 
disk that’s reliable for only $695?” The 
answer is: ABSOLUTELY...when you 
choose the Sider from First Class 
Peripherals. 


What's so great about the Sider? 


For starters, the Sider lets you boot your 
Apple I1+ or Ie directly off the hard 
disk—unlike some other Winchester 
subsystems. Rebooting is also trouble- 
free. And the disk is partitionable, 
allowing you to allocate space to four 
operating systems on the same disk. 
The Sider supports: Apple DOS 3.3; Pro 
DOS™; Apple Pascal; and CP/M® 

What’s more, a small “footprint” 
lets you incorporate the compact Sider into 
your existing computer set-up with ease. 

In addition, with the Sider, you not 
only pay far less for the subsystem, you also 
save money on installation. Because, unlike 
other 10 MB systems that require the 
purchase of expensive “extras,” the Sider 
is plug and play. Everything you need is 
provided, including cables, host adaptor, 
installation software and manual. 


What makes it so reliable? 


To start, the Sider is manufactured, and 
sold exclusively, by First Class Peripherals, 
an innovative computer company which is 
backed by Xebec. The computer industry's 
leading manufacturer of disk controllers, 
Xebec has over a decade of experience 
serving customers like IBM, Toshiba, Texas 
Instruments and Hewlett Packard. It’s this 
kind of expertise that helps assure the 
Sider’s performance. 

Special design features further en- 
hance reliability. The Sider’s controller is 
the field-proven, industry standard Xebec 
$1410A. And Xebec’s 3200 drive tester, the 


Apple and Pro DOS are trademarks of Apple Computer, Inc. 
CP/M is a registered trademark of Digital Research, Inc. 


Sis 


“Only $595”’ 


OCTOBER 1 thru DECEMBER 31, 1985 


toughest in the industry, ensures that the 
Sider will operate reliably. One more assur- 
ance of the $695 Sider’s quality: it’s UL 
Approved and FCC Class B rated. 


But why is it only $695? 


You pay less for the Sider than for other 10 
MB hard disks simply because you're pay- 
ing for the superior quality components 
inside the unit, not for a lot of retail over- 
head costs. Since First Class Peripherals 
sells direct, you avoid dealer and dis- 


tribution expenses, and pay only for 
the product. 


What about a guarantee? 


Like many experienced Apple users, you 
may be reluctant to buy a hard disk 
priced at only $695 without first seeing 
for yourself how it performs. That's why 
First Class Peripherals offers you a re- 
assuring, money-back guarantee that 
eliminates any risk on your part. Simply 
order the Sider and use it for 15 days. 
Then, if you're not entirely satisfied, 
return it and receive a full refund—no 
questions asked. 

The Sider also comes with a full 
one-year limited warranty. Plus, there’s 
a convenient, toll-free hotline you can 
call anytime you have a technical or 
service question, or need help. 


Don't delay. 
Order the Sider now. 


To receive the Sider 10 megabyte Win- 
chester hard disk subsystem for only $695, 
simply order using the coupon below. For 
faster service, order by phone and charge 
to your VISA, MasterCard or American 
Express. (You can also call us if you have 
any questions or technical concerns about 
the Sider. We'll see you get the help you 
need.) Call toll-free: 


U.S.: 1-800-538-1307, Ext. 204 
CANADA: 1-800-227-7792, Ext. 204 


‘. Yes, please send me the Sider, including half-height 10 megabyte Winchester hard disk drive, 
Apple adaptor board, cable, complete installation software and documentation. 


I prefer to pay as follows: 

Ci I've enclosed my check or money order for 
$695* + $15 shipping and handling, payable 
to First Class Peripherals. 

O Please bill the following credit card account 
for $695* + $15 shipping and handling: 


OOVISA CiMasterCard CO) American Express 
Card # Exp. Date 
Signature 


*Residents of CA, NV and PA, please add appropriate sales tax. 


Name 


Address 
City 
State Zip 


Telephone (area code) 

Mail to: 

3579 Highway 50 East 
Carson City, NV 89701 


> —_ ae 
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CIRCLE NUMBER 13 


_— a 2.000 Se 
LISTING 4: TURTLE (continued) ie ae ae ae ae ae a me eoPonces acégt.28GAE au ke 
93E8- 28 20 2C 32 22 22 3C BO | gaps. og op 94 2A 10 oo oo oo | Pet ntDeB = CBA - «SCF 2455 
93FQ- BB BO 1C 22 3E B82 3C OB eee epee Bee aoe 

94CO- 7F 7F 7F 7F 7F 7F 7F 7F | 8637968B 8D5@ - 8D9F 26B1 

93F8- 18 24 04 BE 04 84 B4 BB A4EQ12F2 8DAG - 8DEF 2929 
9498- G2 G2 1A 26 22 22 22 BO 21C7CCD4 8E4@ - 8E8F 218D 
9418- 88 BB BC BB BB BB 1C BOB B264882E 8E9@8 - 8EDF 29D1 
9418- 18 08 19 18 18 18 12 BC KEY PERFECT 5.@ A698E43E 8EE@ - 8F2F 2E6B 
9420- G2 G2 22 12 BA 16 22 BB RUN ON 339B1124 8F38 - 8F7F 282D 
J TURTLE CBQ32027 8F8@ - 8FCF 2273 
28 Oe Oe Oe de OR Oe OO aa eet aeieie:- ap ele te) 
CODE-5.@  ADDR#¥ - ADDR#  CODE-4.@] 86DF9D24 9820 - 9O6F 27AG 

9438- OG BB 1A 24 24 24 24 OO | 4F1003F5 9970 - 9OBE 2EG5 
9449- O08 OB 1C 22 22 22 IC OO | piiieges sage - 884F 299A | B6836058 98CO - 910F 2935 
9448- 08 OB 1E 22 22 1E B2 B2 | Egaggea3 8850 - 889F 2BB1 | 17DCA5F4 9118 - 915F 23CD 
9459- OG BO 3C 22 22 3C 28 20 | F1783BB6 88AQ - 88EF 23DC | D192B28D 9168 - 91AF 2894 
9458- OG BB 1A 26 B2 G2 G2 BO | 32EEDF73 88FQ - 893F 288C | 8C12AFAD 91BO - 91FF 2741 
9460- O86 BO 3C G2 1C 20 1E o@ | 7CF6D448 8949 - 898F 2799 | FFA12704 9200 - 924F 2A2C 
rs 3E19F92E 8999 - 89DF 2643 | 6F6A3532 9258 - 929F 24BF 
ere Ld es o oO es o bs aa 27B1C53E 89E® - 8A2F 2034 | 4CFCD37F 92A9 - 92EF 2884 
9478- GO GO 22 22 22 14 a8 gg | 3291C39C 8A39 - 8A7F 2B2F | 789D8584 92FO - 933F 2981 
478C6D84 8A82 - 8ACF BAC4 | 37863839 9349 - 938F 2A54 

9480- OG GO 22 22 2A 2A 14 BB | 3iqgg5cE = BADD - BBIF 248F | 8C74F253 93908 - 93DF 26DE 
9488- 88 BM 22 14 O8 14 22 BB | cES5c46D1 8B20 - 8B6F 288F | 23C119C7 93E2 - 942F 29E4 
9490- OG BO 22 22 22 3C 28 1E | 9517E253 8B79 - 8BBF 2226 | 512869CB 9438 - 947F 23B0 
9498- 00 OO 3E 18 O8 B4 3E BO | E7989E91 8BCB - 8COF 254F | 40F1C498 9488 - 94C7 2318 
94AB- 10 B8 O8 B4 BB BB 19 BO | E97G252A 8C18 - 8C5F 28B1 | 325BB538 = PROGRAM TOTAL = gCC8 

a ee, ae eee ee ee ee ee ee ree: 
LISTING 5: DEMO1 128 TRIANGL = 159 

118 GOTO 65g 
a REM MEK He HE He Me ae ale aie aie ae ie ake ake ae ale aie ale ale He alee 120 | 
2 REM « DEMO1 P 138 ! SUBROUTINE: TRIANGL 
3. REM « BY J.B. WARD P 149! 
4 REM « COPYRIGHT (C) 1986 « 158 HIDE : FWD L2: SHOW 
5 REM « BY MICROSPARC, INC « 169 LEFT Al 
6 REM « CONCORD, MA 1742 « 178 FWO L1: LEFT A2 
7 REM HEA HE KI I FE HE IC HEE RE Ee Rea Rake ake ake ate 188 FWD Li LEFT A2 
8 REM 198 FWD Li 
9 REM INSTALL TURTLE BEFORE LOADING Hee ReTHey 
19! | 
28 ! DEMO1...Draw a “squiral” 228 ! SUB. TO DRAW FACE, ETC. 
30 «1 230 |! 
49 DA = 15 248 HPRINT (128,88)"0 0" 
5@ SQUARE = 248: ! Sub. line # 258 a (128,89)"/  "; CHRS ¢ 
6g! 
70 VIEWH 1: PLT# 1 268 CENTER 
8@ CLR : FULL : HIRES 278 JUMP 123,94 
98 CENTER : TURNTO 38 288 TURNTO 45: FWD 3 
18@ HPRINT (190,8)"» Squiral «” 298 LEFT 20: FWD 3: LEFT 28: FWD 3 
11@ FOR N = 1 TO 63 308 LEFT 5: FWD 6 
128 DO SQUARE 318 LEFT 25: FWD 3 
138 A =A + 1: LEFT DA 328 LEFT 2@: FWD 2 
148 NEXT N 338 ! FACE DONE; DO REST. 
15@ PRINT CHR$ (7) 349 JUMP 8,158 
168 HPRINT (98,180)"Press Return” 350 TURNTO @: FWD 279 
178 GET Xx$ 360 JUMP 49,168: TURNTO - 1198 
188 TEXT 378 FWD 38: HIDE : FWD 25: SHOW 
198 END : FWD 5 
DOO. be ek She pacidvesen been Stee ae 388 JUMP 5,135: TURNTO - 96 
219 |! 398 FOR I = 1 TO 12 
228 ! Subroutine "SQUARE" 400 FWD 6: RIGHT 12.5 
230! 418 NEXT I 
248 FOR J = 1 TO 4: FWD 10 + A: LEFT 428 JUMP 5,135 
98: NEXT J 43@ FOR I = 1 TO 3 
250 RETURN 449 TURNTO - 8@ 
458 FOR J = 1 TO 4 
END OF LISTING 5 460 FWD 6: RIGHT 49 
470 NEXT J: NEXT I 
480! 
LISTING 6: DEMO2 498 HPRINT (190,125) "SUMMERTIME!" 
5@@ HPRINT (188,1)"PRESS <SPACE>" 
1 REM Pe eee ee ee ed 5128 HPRINT (285 ,9)"TO STOP." 
2 REM «x DEMO2 * 520 RETURN 
3° REM « BY J.B. WARD * 530! 
4 REM + COPYRIGHT (C) 1986 « 54@ ! SUBROUTINE TO STOP ON 
5 REM « BY MICROSPARC, INC « 558 |! ANY KEYSTROKE. 
6 REM « CONCORD, MA @1742 « 560! 
7 REM 488 ee koe RR RE 578 K2 = PEEK (49152) 
8 REM 582 IF Kl = K2 THEN RETURN 
9 REM INSTALL TURTLE BEFORE LOA 590 PLT# 1: VIEW# 1 
DING 620 HOME : TEXT 


a EEEEameeemmanl 
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618 
628 
6308 
648 
658 
668 
678 
688 
698 
708 
719 
728 
738 
749 
758 
768 
776 
788 
796 
898 
818 
8298 
830 
848 
850 
868 
878 
889 
898 
988 
918 


Ll 
L2 
Al 
A2 


END 


MAIN PROGRAM 


28.8 
188 
159 
1298 


FULL : WHITE 


PLT# @: CLR : 


PLT# 1: CLR 


HIRES 
O:V=1 


P = 
S = 
! 


5 


FOR A = @ TO 360 STEP S 


CENTER 


P = 


: TURNTO A 
NOT P:V = NOT V 


PLT# P: VIEW# V 
DO TRIANGL 

NEXT A 

! 


GOSUB 249 
PLT# V 
GOSUB 248 


| 
D= 


Kl = 
GOSUB 579 
FOR I = 1 TO D: NEXT I 


V= 


GOTO 88 


END OF LISTING 6 


58 


PEEK (49152) 


NOT V: VIEW# V 


PNOOhWNE 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


REM 
REM 


LISTING 7: DEMO3 


* 


* 
* 
* 
* 
* 
* 


( 


RRR 
DEMO3 * 
BY J.B. WARD * 
COPYRIGHT (C) 1986 +* 
BY MICROSPARC, INC « 
CONCORD, MA 1742 « 
KKK RRR Ke 
DEMONSTRATION OF TURTLE 
BASIC 


INSTALL TURTLE BEFORE LO 
ADING 


1): Draw the big one. 


VIEWH 1: PLT# 1 
WHITE : CLR 
FULL : HIRES 
L = 188 
FOR A = ® TO 359 
CENTER : TURNTO A 
FWD L 
NEXT A 
! 
! (2): Draw the little one. 
BLACK 
S = 3:L = 45 
FOR A = ® TO 359 STEP S 
CENTER : TURNTO A 
FWD L 
NEXT A 


WHITE 
! 


(3): Message & wait. 


CENTER : FWD @ 
BLACK 

HPRINT (98,183) ; 
FOR N = 1 TO 14 
HPRINT CHR$ (127); 
NEXT N 

WHITE 


HPRINT (98,184)"Press Return” 
PRINT CHR$ (7) 

INPUT X$ 

TEXT 


END 
END OF LISTING 7 


J s 5 
with Nibble’s ProZAP! 
Disk crashed? Directory smashed? Menu bashed? 
Sandy Mossberg’s ProZAP gets you inside your 
ProDOS disks and gives you total control. Not 
only can you repair damaged disks, but with 


ProZAP you can customize directories or even 
modify ProDOS itself! 


ProZAP includes these advanced features! 


© View a full block of disk data (512 bytes) 
displayed on the 80-column screen in both ASCII 
and hexadecimal formats. 


e Edit disk blocks with simple cursor movement 
using the arrow keys to position your entries for 
retyping. 

¢ Instantly display free and used disk blocks. 

¢ Print the full screen to your 80-column printer. 


¢ Get HELP — full instructions are displayed with 
a single keystroke. 


Take control over your ProDOS disks! 
Get ProZAP! 


ProZAP comes with full documentation and complete source 
code in the Big Mac Assembler format. Requires an Apple //c 
or //e with an 80-column card. Order by using the coupon 
below, or call (617) 371-1660. 


! want ProZAP! Here’s my $17.95 
O Mastercard O Visa OC Check, M.O. 


(Add $1.50 for U.S. shipment, $2.50 outside the U.S., 
Mass residents add 5% sales tax) Payable in U.S. funds only. 


Name Tel. # 


Address 


City 


Signature Date 


Charge Card # Exp. Date 


nibble 45 Winthrop St., Concord, MA 01742 
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NIBBLE 


CALCULATOR 
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AUAEUDUAGODAODEOOONNSDDAGHOOUAODOOONOHONNRODOESOODONNNOOOOOROONCEON ANON ONONOOOO NED 


by Newton Saiyuen Lee 
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se your Apple 


as a full-function scientific calculator. Features include 
hyperbolic trig functions, six memory registers, and five user- 


defined programs. 


UUNUUOANONDAGOAUHOUANDASDODOODEOHEGADOEOOUOGOOEGOOUNODEONULOOOEOOOOOOOOOOUOOOEONOOANOEOOOOEOOEOONOEOOEOUOOOOUEH OOOO OEOONDONOEDUNDOOOEOUOOOOOEDIEONOOOVOEDOOOELNOOODOOOOELOOOEDONONDOEDENOONOENNEONONOONONEOOCOEOOOUNGOOOOAUOONNEOUOOEONEOOOOEDONONOUOOOONSOOEOEOOEOOOOEOOONOOOEOOOLOOONONOOOOOUONSUOUOOOOOOEOOEOUOOOUOEONOOCONOANOONOHOOEOE 


he Nibble Calculator is a super calculator for the Apple // 

series. It’s powerful, flexible and simple to use. Nibble Cal- 

culator can hold up to five user programs in memory at the 
same time. Your program can use the value in the calculator dis- 
play and pass a value back. Like a hand-held programmable calcu- 
lator, it carries out a full range of mathematical functions activated 
by one or two keypresses (see Figure 1). 


USING NIBBLE CALCULATOR 


Built-in Functions and Keys 

The built-in function keys are defined in Table 1. The function 
keys calculate trigonometric functions, exponents, logarithms, roots, 
powers, absolute values, reciprocals, hyperbolic functions and fac- 
torials. Other built-in functions and keys are defined below. 


<ESC > — Quit Key. When you press <ESC>, you are first 
asked for confirmation. Then the user-defined programs and the 
values stored in memory slots 1-6 are saved to disk. If the pro- 
gram is terminated in a different way, the memories and the user- 
defined programs are not saved. 


V — Second Function Selection Key. When this key is pressed, 


Newton Saiyuen Lee, Management Information Center, Vincennes 


University, Vincennes, IN 47591. Nibble Calculator is compatible 
with DOS 3.3 and ProDOS. 
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the arrow next to the V, which normally points to the left, points 
to the right and flashes, indicating that the second functions (those 
enclosed in square brackets in Figure 1) can be selected. For ex- 
ample, 0.5 V S means ARCSIN(0.5). The V key is a toggle key; 
that is, if V is pressed by mistake, the first function can be restored 
by pressing V again. For example, 45 V VS means SIN(45). 


@ — Degree/Radian Selection Key. The at sign (@) is used to 
change the mode of operation for trigonometric and inverse trigono- 
metric functions. In DEG mode (the default), entries and answers 
are all in decimal degrees. In RAD mode, they are all in radians 
(1 radian = 180/z degrees). 


D — Display Clear Key. D is used to clear the display (i.e., set 
it to zero). 


P — User-Defined Program Execution Key. Press P to run the 
user-defined programs. Select the program by number. See the Cre- 
ating Your Own Programs section for more details. 


# — User-Defined Program Programming Key. The pound sign 
(#) enters the section of Nibble Calculator that allows you to cre- 
ate or modify user-defined programs. See the Creating Your Own 
Programs section for more details. 


K S — Memory Store. K followed by S is used to store the dis- 
played number in the specified memory slot. The old value in the 


FIGURE 1: Main Calculator Display | 


PROGRAM: P # 
l@ 2_ 3 


DISPLAY 


MEMORY: K STO RCL 


1 
res 
4 


6 


< DISPLAY 


L SPLAY 
VOONDOONUNOOODNNODEODDOODOOEDOONORODOOUDDOODOCENOUDOOODOONONODOONOONCAOOODUOONOROONOOONaUODOOOOUOHOUAODOOONOOOOOODONCGOOONOOONOOOOUNaE <ESC> TO QUIT 


slot (if there is one) is erased before the new value is stored in it. 
For example, 3.5 K S | instructs Nibble Calculator to store 3.5 in 
memory slot 1. 

To clear memory slot n, simply type K Sn when the displayed 
number is zero. The display can be set to zero by pressing D. For 
example, DK S5 clears memory slot 5. 

If the K S key combination is used during a calculation, the result 
of the calculation is stored in the specified memory slot. For 
example: 


55+ 10KS1 


puts the result of the calculation (65) into memory slot 1. This is 
equivalent to typing: 


55 + 10 <RETURN> KS1 


When you press the K key, the K just below the display begins 
to flash. When you press S, the K stops flashing and the S begins 
flashing. When you press the slot number (1-6) the S stops flash- 
ing and the store operation is completed. If you press a key that 
is not expected, the bell sounds to indicate the error, the flashing 
stops and the calculator returns to normal entry mode. 


K R — Memory Recall. This key sequence is used to retrieve the 
value stored in the specified memory slot. The value in the slot 
is not erased. For example, K R 2 retrieves the value from memory 
slot 2. If the K R key combination is used during a calculation, the 
number stored in the specified memory slot will be recalled and 
evaluated with the number in the display. For example: 12 + KR 1 
adds the number stored in memory slot | to the number 12 (in the 
display window). 

In a manner similar to that described above for the memory store 
operation, the K and R will flash until the next key in the sequence 
is pressed. 


Numeric Keys. Numeral keys (0-9) are used to enter numbers. The 
decimal key (.) is used when entering a decimal number. The expo- 
nent key (E) is used to enter exponents. For example, 12.5 E 5 
signifies 12.5 x 10°. The unary minus key (U) is used when enter- 


MODE DEG RAD vuvevennenecnnonnnnevanvensevanoon ITT 


avevenenenvnonvensnvnnenenavenevuvononoennvnvavenoonsennannoenonovesnunsvevevovenvenevevuonsononnnnenesosnngnusvenenenanensenuvuvevusonevonsennsenovonnncnvevavcnnenevovenevusoesenevevenvevevevsnsevenevusvonsevenenanveguvnnevenenccnenensnuevovunsnonvsuevenunvenennnsvevevcanenevensnouveneneusuvenuuvevevenduveveninueuenenvonenennvoneneseucenenaousoneonsonny 


ing negative numbers or negative exponents. For example: 


U12.5 = —-12.5 
10EU5 =10E—-5 


Arithmetic Calculation Keys. Use a plus sign (+) for addition, 
a minus sign (—) for subtraction, an asterisk (*) for multiplication, 
and a slash (/) for division. The priority level is the same for all 
operators and functions, and they are performed from left to right. 
For example: 


5+ 6*5 =11*5 =55 


To get the result of a calculation, you can use either < RETURN > 
or equals (=). 
Since Nibble Calculator doesn’t support parentheses, it may be 


’ necessary to work from inside an expression out, or to use the 


memory feature to store an intermediate result. For instance, to 
get the expected result for the expression above, use the sequence: 


6%*54+ 5 = 35 


Entering Your Own Programs in Nibble Calculator 

From the main menu (Figure 1) press the pound sign (#) to dis- 
play the programming menu. This is a list of the five available pro- 
grams. The solid box marks a user program that has already been 
defined. Let’s create a short program and enter it. Press 1, and 
you should see TAG = at the top of the screen. Fill in the name 
for the new program by typing: 


ONE-VARIABLE STATISTICAL CALC 


and press the < RETURN > key. (The first 70 characters you type 
are saved.) The following message will be displayed: 


ENTER YOUR PROGRAM #1 [3310-3510] 
[ BLANK LINE = FINISH; Q = QUIT ] 


You can now enter your new program, just as you would enter 
an Applesoft program. The line number range for program | is 3310 
to 3510, as shown inside the brackets. If you try to type in a line 
number outside this range, you will get the error message: 


aaa 
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LINE NUM OUT OF RANGE [3310-3510] 
RETYPE LINE 


The value shown in the calculator display is available for use by 
your user program in the variable N. It is automatically passed to 
this variable when you select a user program. Similarly, if you wish 
to return a value from your user program to the main calculator, 
simply assign it to the variable N before returning from your 
program. 

The program can be written like a BASIC program, with the fol- 
lowing restrictions: 


The line number range is limited as specified. 

The maximum number of lines per program is 100. 

No comma (,) or colon (:) is allowed. 

No STOP, END or NEW statement is allowed. 

You must be very careful with GOTO, THEN, and GOSUB 
statements, as their misuse can lead to unexpected results and 
errors. 


AR WN 


If you enter a blank line when typing in a new program, you auto- 
matically leave the input mode and return to the main calculator 
program. However, Nibble Calculator keeps your program in 
memory. Pressing Q lets you quit the user-defined program sec- 
tion and the program you just entered is erased from memory. 

Type in the listing in Example 1 and when you have finished, 
press the <RETURN> key twice. The disk drive will spin for 
a while as it creates an EXEC file for your program and you will 
return to the main calculator display. 


Editing Programs 

Press the pound sign again to go back to the programming menu. 
If you press 1, since program | already exists, Nibble Calculator 
puts you automatically into edit mode, and the following message 
is displayed: 


EDIT> L(UIST T(AG C(HANGE E(RASE Q(UIT 


The edit functions are as follows: 


—_ 


. L (list) displays a listing of the program (use <CTRL>S to 
pause) 

. T (tag) changes the TAG of the program 

. C (change) makes modifications to the program 

E (erase) deletes the program 

Q quits updating the program (and causes the current program 

to be discarded) 


va YN 


The functions are self-explanatory except for the change func- 
tion. When you press C, you will see: 


EXAMPLE 1: Sample User-Defined Program 


3318 
3315 
33208 
3325 
33308 
3335 
3348 NEXT 

3345 FOR I = 1 TON1 
3358 S1 = S1 + X(I) 


DIM X(59) 

INPUT "NUMBER OF SAMPLES (2-58)? ";N1 
PRINT “ENTER NUMERIC VALUE" 

FOR I = 1 TO Nl 

PRINT I; 

INPUT "? ";X(I) 


3355 S2 = S2 + X(I) * X(I) 


3360 NEXT 

3365 PRINT "TOTAL OF SAMPLES = ";S1 

3370 PRINT "SUM OF SQUARES OF SAMPLE = ":S2 
3375 S = S1 / Nl 

3380 PRINT "MEAN VALUE OF SAMPLES = ":S 
3385 ST = SQR ((S2 - Nl + S + S) / (NI - 1)) 
3398 PRINT "STANDARD DEVIATION = ";ST 

3400 N = ST 


TABLE 1: Function Keys 


Abbreviation Function 

SIN Sine 

Cos Cosine 

TAN Tangent 

ARCSIN Arcsine 

ARCCOS Arccosine 

ARCTAN Arctangent 

EXP Natural exponential 

(antilogarithm base e) 

Antilogarithm base 10 

Square root 

Square 

Absolute value 

X to the Y power 

MOD A MOD B 

XAL/Y Yth root of X 

INT Integer truncation e.g., 
4.881 =4 


LOG10 
SQRT 
XA2 
ABS 
XAY 


1/X Reciprocal 


RND Random number between 
zero and one 

Xx! Factorial 

SINH Hyperbolic sine 

COSH Hyperbolic cosine 

TANH Hyperbolic tangent 
ARCSINH Inverse hyperbolic sine 
ARCCOSH Inverse hyperbolic cosine 
ARCTANH Inverse hyperbolic tangent 


CHANGE > ENTER LINE(S): [3310-3510] 
{[ BLANK LINE = FINISH; Q = QUIT ] 


You change a line in very much the same way that you enter a new 
one. Type the line number of the line you want to change and then 
the line with the changes you want. If you want to add a new line 
to your program, type the line number and the new line. Enter a 
blank line when you are through making changes. 


Running Programs 

Press the P key to display the run menu, which is nearly identi- 
cal to the programming menu. The solid block marks programs that 
have been entered. If you try to run a program that has not yet been 
entered, the error message PROGRAM #n IS EMPTY is displayed. 
To run a program, simply type the program number. Press 1 to 
run ONE-VARIABLE STATISTICAL CALC. If there are any 
errors or typing mistakes, an appropriate message is displayed, and 
you are returned to the main calculator display. Choose the pound 
sign option and edit the program using the C option. 


Error Messages 
When you are using the normal functions on Nibble Calculator, 
three kinds of errors may occur: 


1. DIVISION BY ZERO — This error occurs when you try to 
divide a number by zero. For example: 5/0 <RETURN> 

2. ILLEGAL QUANTITY — This error occurs when you try to: 
(a) Apply LOG to a negative number or zero; (b) Apply SQR 
to a negative number; (c) Use XAY when X is negative and Y 
is not an integer; or (d) Apply ARCTANH (inverse hyperbolic 
tangent) to a number whose absolute value is greater than 1. 

3. OVERFLOW — This error occurs when the result of a calcula- 
tion is too big. You will receive this error message if you enter, 
for example, 10 E50 * 20E50. 


To clear the error message from the display, simply press 
<RETURN>. 


a a a ee 
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Errors may also occur when running the user-defined programs. 

The line number where the error is found is displayed, along with 

TABLE 2: Program Functions the error message. To clear the error message and return to the 
main menu, simply press < RETURN >. (For a detailed descrip- 

tion of the error messages, read the Apple II Reference Manual.) 


ENTERING THE PROGRAM 
To key in Nibble Calculator, type Listing 1 and save it with the 
command: 


SAVE NIBBLE.CALC 


Because of the user-defined program feature, the lines between lines 
3300 and 4480 are not consecutively numbered by tens. For help 
in entering Nibble listings, see ‘‘A Welcome to New Nibble 
Readers’’ at the beginning of this issue. 


HOW IT WORKS 
Table 2 documents each section of the program. Some unusual 
features are explained below in more detail. 


Permanent External Files 

Two external files must be present for Nibble Calculator to work 

properly: 

1. CAL.INFO contains the values of P%(n) and T$(n), where 
1< =n< =5S. If this file is not present when NIBBLE.CALC 
is run, it is automatically created, using zeros and null strings 
to fill the two arrays. 

. CAL.MEMORY contains the values of M(N) where 
1< =N< =6 (see Table 3). If this file is not present when 
NIBBLE.CALC is run, it is automatically created, using zeros 
to fill the array. 


User-Defined Program EXEC Files 
A maximum of six EXEC files can be created by NIBBLE.CALC. 


TABLE 3: Variable Usage 
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: BASIC to Pascal 
Translation Software 


P-tral is the user-friendly translation software 


that converts Applesoft BASIC programs to 
Apple Pascal. 
Translates any business, scientific, graphics 
and game software from source. 
¢ Translation results approach 100%. 
¢ Translates any sized program—Large 
or Small. 
e Essential compile directives generated. 
¢ PIONEER version only $125.00. 
REQUIREMENTS: 64/128K RAM, Dos 3.3 80-column 
card/Apple ll, lle, tlc Apple Pascal 1.1 or 1.2 


To order or request more information contact: 
WOODCHUCK INDUSTRIES" 

340 West 17th Street, New York, NY 10011 
(212) 924-0576 / (212) 206-6490 


CIRCLE NUMBER 14 


80 COLUMN DASPAN 


compatible with software watten tor Appie extended 80 Cowen card, 


AGB VIDEO CAPAB\\\\N 


for display of all Apple colors 


AEAR PHOTOGRAPHIC QUAN 


when using most color software on monochrome momtars. 
achieved by 16 tone graduations of the monochrome image 


OP TO A FULL MEGABYTE 


expandable memory upgraded with 64K or 256K RAM chips 


APPLEWORKS EXPANDSION PROGKNN 


AD 10 T3SK 


dramatically increases desktop memory. . 


Res All These Features =, 


For Your Apple //e, All On One 


LEGEND E’ CARD" 


Three Year Warranty! 


LEGEND INDUSTRIES, LTD. 


2220 Scott Lake Road, Pontiac, MI 48054 (313) 674-0953 
Turning Apples into Legends™ since 1981 
Legend and €’ Card are trademarks of Legend Industries, Ltd 
Apple and AppleWorks are trademarks of Apple Computer, inc 


CIRCLE NUMBER 15 
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An EXEC file is used to put the user-defined program into memory. 
The file name convention is CAL.n, where n is the program number. 
Every EXEC file is constructed as follows: 


Statement Meaning 
DEL LA%, UA% Delete line numbers LA% to UA% 
In Statement User-defined program lines, where /n 
is the line number 
RUN 


When such a file is EXECed, the buffer area for the particular user- 
defined program is cleared and refilled with the new program lines. 
Finally, the RUN command re-initiates NIBBLE.CALC. 


User-Defined Program Buffer Areas 

The buffer areas are reserved for storing user-defined programs 
in memory along with NIBBLE.CALC. Each buffer area has the 
following structure: 


Line Statement 

In CLEAR : GOSUB 5600 

In User-defined program statements 
in - 

In GOTO 4490 


The first and last lines are fixed and built into the program. 
The line number ranges for the user-defined programs are: 


User Program Lines 
1 3310-3510 
2 3550-3750 
3 3790-3990 
4 4030-4230 
5 4270-4470 


The program editor does not allow lines outside the allocated line 
range. 


Passing a Value to a User-Defined Program 

When you run a user-defined program, the CLEAR command 
is executed, so that NIBBLE.CALC’s variables will not interfere 
with variables in the user-defined program. The routine at line 5580 
assigns N the value that was shown in the calculator display by 
PEEKing memory locations starting at 768. This area is used by 
the main program to store the contents of DV$ before calling a user 
program in the following format: length byte, ASCII values of the 
characters in DV$, duplicate length byte. The final length byte acts 
as a check to ensure that NIBBLE.CALC only reads valid data from 
this area of memory. When your program ends, a GOTO 4490 clears 
ERRFLG, converts the value of N to a string, POKEs the string 
into memory at location 768 and reinitiates NIBBLE.CALC. 


Turtle BASIC, Nibble Calculator and Tank Combat 
are available on diskette for an introductory price of 
$19.95 plus $1.50 shipping/handling ($2.50 outside the 
U.S.) from Nibble, 45 Winthrop St., Concord, MA 
01742. Introductory price expires 3/31/86. 


LISTING 1: NIBBLE.CALC 


10 REM eRe Ae ea ea oe ek oe ee ak oe ok ak ae ea eae 
20 REM « NIBBLE .CALC 
3@ REM « BY NEWTON S. LEE « 
48 REM « COPYRIGHT (C) 1986 « 
5@ REM « BY MICROSPARC, INC « 
68 REM « CONCORD, MA 1742 « 

* * 


78 REM 


Ce ed 


Low-cost, Easy to Use... 
88 D$ = CHR$ (4):UL$ = CHR$ (95):LB$ = CHR$ 


(91) 
98 DIM A$(188) ,LA%(5) ,UA%(5) ,P%(5) ,.T$(5) M(6 I/O 
) 
188 LA%(1) = 3318:UA%(1) = 3518:LA%(2) = 35508 
PRP Mae DROSS t ) 


:UA%(2) = 3758:LA%(3) = 3798:UA%(3) = 39 
98:LA%(4) = 4838:UA%(4) = 4238:LA%(5) = een ) 
4278:UA%(5) = 4478 
118 GOSUB 4858: REM - READ INFO - 
128 GOSUB 4998: REM - READ MEMORY - 
138 GOSUB 5218: REM - DISPLAY - 


148 M% = @ zs . 
158 PI = 3.141592654 COU : 
eerie ene Su Fae uD-1000™ Intertace-Two™ —_Interface-32™ 
188 REM - BEGIN - Simplify computer control and data acquisition with these 
198 REM Apple II+ and Ile-compatible (/O boards. All are fully guar- 
208 GOSUB 1528: GOSUB 1738: REM -GET TV$- anteed. Quantity discounts are available. 
218 IF LEN (TV$) > @ THEN DV$ = TV$ 
228 K% = @: ONERR GOTO 4589 uD-1000™ I/O System — Input/output programmed easily in 
230 IF C$ = "V" THEN GOSUB 1498: GET C$: GOTO Applesoft Basic. Provides eight, 8-bit, 5v analog inputs, 8 TTL 
on ee eee outputs, 8 TTL inputs. Includes 2 boards, 

= cables, program disk, 7 ; 
258 IF C$ = "C" THEN 489 pL Dior aansek <page anual 
268 IF C$ = "T" THEN 589 tnterface-Two™ Parallel Input/Output Card — 
270 IF C$ = "I" THEN 526 Provides 20 digital input/output lines, 
298 IF C$ = "A" THEN 548 : 
a0 ie ee Prine uae Bos Interface-32™ Bit Oriented Input/Output Card 

ae havi Provides 16 TTL inputs, 16 TTL outputs 
328 IF C$ = "L" THEN 578 is ; 
330 IF C$ = "M" THEN 589 and is programmed easily from BASIC. 
Bae eee a 3 Te oe MicroDimensions can design a custom I/O Board for your 
358 IF C$ = "O" THEN 662 ge pee : 
360 IF C$ = "H" THEN 692 specific application. Call us for details. a. 
378 IF C$ = “D" THEN 1210 = = =T™ 
30 te G3 2 “Ks Then 1240 mrcronrrencrons™ (Ee 
398 IF C$ = "P" THEN GOSUB 5118: GOSUB 1938 MicroDimensions as 

: GOSUB 5218: GOTO 1418 4780 Beidler Road, Willoughby, Ohio 4406 ——— 
400 IF C$ = "#" THEN GOSUB 5119: GOSUB 2149 (216) 946-8070 4 
: GOSUB 5218: GOTO 14168 Apple and Applesoft Basic are trademarks of Apple Computer, Inc. 

410 IF C$ = "+" OR C$ = “-" OR C$ = "x" ORC CIRCLE NUMBER 16 


$ = "/" THEN 1296 


428 IF C$ = "=" OR C$ = CHR$ (13) THEN 280 

438 IF C$ = CHR$ (27) THEN 51988 

449 IF C$ = “@" THEN M% = M% + 1:M% = INT ( 
(M% / 2 - INT (M% / 2)) * 2 + .85) 


458 PRINT CHR$ (7): GOTO 288 
462 IF M% = @ THEN DV$ = STR$ ( VAL (DV$) + 
PI / 188) 


478 DV$ = STR$ ( SIN ( VAL (DV$))): GOTO 141 a ae single ee are ee the 

g other side. You paid for one side, why not use 
480 IF M% = @ THEN DV$ = STRS$ ( VAL (DV$) « oS the other... IT’S FREE! 

PI / 188) sf Nibble Notch will open your new disk. It's 
490 DVS = STRS ( COS ( VAL (DVS))): GOTO 141 g. disey's wenthartnexisting data THe 
500 IF M% = @ THEN DVS = STR$ ( VAL (DVS) « Nibble Notch | | Niddle Notch Il 

PI / 188) < For Apple, Frankli 

F a PPle. Franklin, For all other 
BID: DVS er. SIRES GTANSC VAL SONS) GOTO=TA . Commodore & Atari | computers square 
- , 2 (w/Atari Drives), notch & index hole. 

520 ae = STR$ ( INT ( VAL (DV$))): GOTO 141 square notch. 
530 DV$ = STR$ ( RND ( VAL (DV$))): GOTO 141 $4 49s" $4990" 

g only Ban only Bane 
549 DV$ = STR$ ( ABS ( VAL (DV$))): GOTO 141 are (6)) 

r DISK OPTIMIZER Il 
558 DV$ = STRS$ ( SQR ( VAL (DV$))): GOTO 141 Apple Il Series Software 

g Pro DOS ¢ DOS 3.3 « Pascal 
568 DVS = STRS ( EXP ( VAL (DV$))): GOTO 141 Examines your new disk, locks out 

4) bad sectors and certifies it 100% 
578 DV$ = STR$ ( LOG ( VAL (DV$))): GOTO 141 ERROR-FREE in 30 seconds or less! 

g Also checks drive speed...and more! 
588 GOSUB 1738: IF LEN (TV$) = @ THEN TV$ = 

DV$ 
599 IF C$ = "K” THEN GOSUB 1618 QUALITY DISKETTES GO ue aes ae 
688 DV = VAL (DV$):TV = VAL (TV$):DV$ = STR$ low as Ba elreg eee ope 


( INT ((DV / TV - INT (DV / TV)) « TV + 
-85) » SGN (DV / TV)) 
6186 IF K% = 1 THEN GOSUB 1682: GOTO 1418 


628 GOTO 1459 Toll Free 1-800-642-2536 
638 DV = VAL (DVS) 


* FL 1-305-748-3770 
aa a Mievie acts RE eS 
658 GOTO 1419 computer products — 
6628 DV = VAL (DV$) 
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LISTING 1: NIBBLE.CALC (continued) 


678 DV$ = STR$ (( EXP (DV) + EXP ( - DV)) / 
2) 

688 GOTO 1418 

698 DV = VAL (DV$) 

708 DVS = STRS ( - EXP ( - DV) / (¢ EXP (DV) 
+ EXP ( - DV)) * 2 + 1) 

718 GOTO 1419 


720 IF C$ = "S" THEN 869 
730 IF C$ = "C" THEN 999 

740 IF C$ = "T" THEN 949 

750 IF C$ = "I" THEN 969 

760 IF C$ = "R" THEN 979 

% Q 770 IF C$ = "A" THEN 999 
{ 780 IF C$ = "Q" THEN 1049 
YOCPMASTEL ” 790 IF C$ = "X" THEN 1059 
a «| 808 IF C$ = "L" THEN 1968 
re 810 IF C$ = "M" THEN 1979 

a : : 820 IF C$ = "N" THEN 1120 
838 IF C$ = "0" THEN 1159 
849 IF C$ = “H" THEN 1189 


858 GOTO 20 

868 DV = VAL (DV$): IF DV = 1 THEN DV$ = STR$ 
(1.578796327): GOTO 880 

878 DV$ = STR$ ( ATN (DV / SQR ( - DV « DV + 
1))) 

880 IF M% = ® THEN DV$ = STR$ ( VAL (DV$) « 
188 / PI) 

898 GOTO 1418 

982 DV = VAL (DV$): IF DV = 1 THEN DV$ = STR$ 
(@): GOTO 926 

918 DV$ = STR$ ( - ATN (DV / SQR ( - DV « 


Your computer can talk in your own DV + 1)) + 1.5708) 

voice. Not a synthesizer but a true digitizer 928 aa =A THEN DV$ = STR$ ( VAL (DV$) 

that records your natural voice quality—and in 930 GOTO 1419 

any language or accent. Words and phrases can 949 DV$ = STR$ ( ATN ( VAL (DV$))): IF M% = 

be expanded without limit from disk. Aa DV$ = STR$ ( VAL (DV$) * 188 / P 

And it will understand what you say. A 958 GOTO 1419 

real word recognizer for groups of 32 words or 960 DV$ = STR$ (1 / VAL (DV$)): GOTO 1419 

phrases with unlimited expansion from disk PE ees ee we :DV = DV * 

memory. Now you can have a two way conver- 980 GOTO 1419 

sation with your computer! 998 GOSUB 1730: IF LEN (TV$) = @ THEN TV$ = 
Fae DV$ 

Easy for the beginning programmer 1008 IF C$ = "K" THEN GOSUB 1619 

with new BASIC commands. Machine language 1918 DV$ = STR$ ( VAL (DV$) A VAL (TV$)) 

programs and memory locations for the more 1920 IF K% = 1 THEN GOSUB 1688: GOTO 1419 


1038 GOTO 1458 
experienced sertware author. 1040 DV$ = STR$ ( VAL (DV$) « VAL (DV$)): GOTO 
Exciting Music Bonus lets you hum or 1418 

whistle to write and perform. Notes literally 1958 DVS = STRS ( LOG ( VAL (OV$)) / LOG (1 


; se ®)): GOTO 1412 
scroll by as you hum! Your composition can be 1068 DV$ = STR$ (10 A VAL (DV$)): GOTO 1418 


edited, saved, and printed out. You don’t have to 1978 GOSUB 1730: IF LEN (TV$) = @ THEN TV$ = 
know one note from another in order to write _— mae te cs Cee ey. -BomUa RAB 

\ = 
and EeMNPase: 1898 DV$ = STR$ ( VAL (DV$) A (1 / VAL (TV$ 
Based upon new technologies invented by COVOX. One low )»)) 
price buys you the complete system—even a voice controlled 1198 IF K% = 1 THEN GOSUB 1688: GOTO 1419 
black-jack game! In addition, you will receive a subscription to 1118 GOTO 1458 
COVOX NEWS, a periodic newsletter about speech technology, 1126 DV = VAL (DV$) 
applications, new products, up-dates, and user contributions. 1138 DV$ = STR$ ( LOG (DV + SQR (DV « DV + 
You will never find a better value for your computer. 1))) 
1148 GOTO 1419 


ON LY $89.95 includes all hardware and software. 1158 DV = VAL (DV$) 


For telephone demonstration or additional information, call 1168 DV§ = STRS ¢ LOG (DV + SOR (DY « (DV ~ 


(503) 342-1271. FREE audio demo tape and brochure available. 1179 GOTO 1419 


Available from your dealer or by mail. When ordering by mail add $4.00 1188 DV = VAL (DV$) 
shipping and handling ($10.00 for foreign, $6.00 Canada). 1198 DV$ = STR$ ( LOG ((1 + DV) / (1 - DV)) 7 
The Voice Master is available for the C64, C128, all Apple II’s, and Atari 1200 ai 1419 
800, 800XL 1 4 if ing. 

ete SOXE. Specity model whan ordering 1219 HTAB 22: FOR I = 1 TO 15: PRINT " ";: NEXT 
cm For Faster Service on Credit Card Orders only: 1220 HTAB 22: PRINT "@";:DV$ = "OG" 


1238 GOTO 200 
a a i 1248 COL% = POS (@): VTAB 14: HTAB 28: FLASH 
ORDER TOLL FREE 1 800 523 9230 : PRINT "K";: NORMAL : VTAB 11: HTAB COL 
% + 1: GET C$:COL% = POS (@): VTAB 14: HTAB 
28: INVERSE : PRINT "K";: NORMAL : VTAB 
(503) 342-1271 11: HTAB COL% + 1: IF C$ < > "S" AND C$ 


e 
x t < > "R" THEN PRINT CHR$ (7);: GOTO 2 


675-D Conger Street, Eugene, OR 97402 00 
Telex 706017 (AV ALARM UD) 


en er Se ee ee 9 
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1258 COL% = POS (@): VTAB 14: HTAB 39 + 4 « 
(C$ = "R"): FLASH : PRINT C$;: NORMAL : VTAB 
11: HTAB COL% + 1: GET N$: VTAB 14: HTAB 
38 + 4 « (C$ = "R"): INVERSE : PRINT C$; 
: NORMAL : VTAB 11: HTAB COL% + 1: IF N$ 
< "1" OR N$ > "6" THEN PRINT CHR$ (7) 


;: GOTO 288 

1268 IF C$ = "S" THEN M( VAL (N$)) = VAL (D 
V$) 

1270 IF C$ = "R" THEN DV$ = STR$ (M( VAL (N 
$))) 


1288 GOSUB 5528: GOTO 1419 


1298 TC$ = C$: GOSUB 1738: IF LEN (TV$) = @ THEN 


TV$ = DV$ 

1308 IF C$ = "K" THEN GOSUB 1619 

1318 IF TC$ = "+" THEN DV$ = STR$ ( VAL (DV 
$) + VAL (TV$)) 

1320 IF TC$ = "-" THEN DV$ 
$) - VAL (TV$)) 

1330 IF TC$ = "*" THEN DV$ = STR$ ( VAL (DV 
$) * VAL (TV$)) 

1348 IF TC$ = "/" THEN DV$ = STR$ ( VAL (DV 
$) / VAL (TV$)) 

1358 IF K% = 1 THEN GOSUB 1688: GOTO 1419 

1368 GOTO 1459 

1378 CALL - 3288: POKE 216,98: HOME : VTAB 1 
2: PRINT "ERROR #" PEEK (222)" IN LINE " 
PEEK (218) + 256 « PEEK (219): PRINT : 
INPUT "DO YOU WANT TO TRY AGAIN? ";YNS: 
ON (YN$ = "Y") GOTO 5118: RETURN 

1388 REM 

1398 REM - DISPLAY DV$ - 

1408 REM 

1418 PC% = @:EC% = O: VTAB 11: HTAB 22: PRINT 
DV$; 

1420 IF LEN (DV$) = 15 THEN 200 

143@ FOR I = 17015 - LEN (DV$): PRINT " " 
>: NEXT 

1448 GOTO 209 

1458 PC% = @:EC% = @: VTAB 11: HTAB 22: PRINT 
DV$; 


STR$ ( VAL (DV 


1468 IF LEN (DV$) = 15 THEN 229 

1476 FOR I = 17015 - LEN (DV$): PRINT " " 
>: NEXT 

1488 HTAB 22: GOTO 228 

1498 COL% = POS (®) 


1588  VTAB 4: HTAB 2: PRINT " ";: HTAB 7: FLASH 
PRINT ">>";: NORMAL : VTAB 11: HTAB CO 
L% + 1 


1518 RETURN 
152@ COL% = POS (@) 
1538 VTAB 4: HTAB 2: INVERSE : PRINT "<<"; : NORMAL 
: HTAB 7: PRINT " “"; 
1549 IF M% = @ THEN VTAB 23: HTAB 28: INVERSE 
PRINT "DEG";: NORMAL : PRINT " RAD"; 
1558 IF M% = 1 THEN VTAB 23: HTAB 28: NORMAL 
: PRINT "DEG ";: INVERSE : PRINT "RAD"; 
1568 NORMAL : VTAB 11: HTAB COL% + 1 
1578 RETURN 
1588 REM 
1598 REM - HANDLE K STO/RCL REQ - 
1688 REM 
1618 COL% = POS (@): VTAB 14: HTAB 28: FLASH 
PRINT "K";: NORMAL : VTAB 11: HTAB COL 
% + 1: GET C$:COL% = POS (@): VTAB 14: HTAB 
28: INVERSE : PRINT "K";: NORMAL : VTAB 
11: HTAB COL% + 1: IF C$ < > "R" AND C$ 
< > "S" THEN PRINT CHR$ (7); :K% = @: 
RETURN 
162@ COL% = POS (@): VTAB 14: HTAB 38 + 4 « 
(C$ = "R"): FLASH : PRINT C$;: NORMAL : VTAB 
11: HTAB COL% + 1: GET N$: VTAB 14: HTAB 
30 + 4 « (C$ = "R"): INVERSE : PRINT C$; 
: NORMAL : VTAB 11: HTAB COL% + 1: IF N$ 
< "1" OR N$ > "6" THEN PRINT CHR$ (7) 
;:K% = @: RETURN 
1638 IF C$ = "S" THEN K% = 1:C$ = CHR$ (13) 
: RETURN 
1649 IF C$ = "R" THEN TV$ = STR$ (MC VAL (N 
$))):K% = @:C$ = CHR$ (13): RETURN 
1658 REM 
1668 REM - HANDLE K STO - 


but no DOS 3.3. Now you can have it — with UniDOS 3.3! 


MicroSPARC’s UniDOS 3.3 software lets you format 3.5 inch disks that automatically 
boot up Apple’s DOS 3.3! This means: 


© You'll enjoy a 500% + increase in disk capacity. . .800K per disk, 


UniDOS 3.3 
For the Apple UniDisk 3.5 


Apple’s new 800K UniDisk drive gives you five times the storage capacity of floppy disks — 


for those BIG applications. 


© You'll protect your investment in DOS 3.3 software* and files. 


© You can grow to 1.6 megabytes of disk capacity painlessly. . .without 


You don’t have to wait any longer to buy the UniDisk 
3.5...now that UniDOS 3.3 is here. Order now! 


having to convert to ProDOS. 


1 want UniDOS 3.3! Here’s my $49.95 


(1 Check, M.O. (Payable in U.S. funds only) Pi ostpaid 
(Mass. residents add 5% sales tax) 


Name 

Address 

City State Zip 
(I MasterCard  —_ L] Visa 

Signature Tel. # 


Charge Card # Exp. Date 
MicroSPARC Inc., 45 Winthrop St., Concord, MA 01742 (617) 371-1660 


The UniDOS 3.3 facts: 
© Two 400K volumes per disk. 
© Supports one or two UniDisk 3.5’s, addressable as Drives 1-4. 
© Up to 217 Catalog names per disk. 


© Mix 5.25” and 3.5” drives within the same system. 

© Comes with Technical Data Sheet showing modified DOS 3.3 addresses. 
© Uses only 1K of user memory. 

© Developer licenses are available. 

© For the Apple II Plus, //e and //c 


* Note: Full compatibility with Applesoft programs. However, UniDOS 3.3 may not operate correctly with 
machine language utility programs that directly use DOS 3.3 internal routines. Apple and UniDisk 3.5 are 
registered trademarks of Apple Computer, Inc. 


AppleWorks 


Only Pinpoint adds pictures 


1G SAIL to any AppleWorks document. 
Sune fan and Tots Yours Nopetelig, vetulig, Wi So you can create party invitations 


that are truly exciting. Even if the 
weather isnt. 


One glance and 
you can see your social 
schedule for months ahead. 
So its a snap to slip this year’s party 
in between the garlic festival and 
your breakdancing lessons. 


Dont spend hours 
addressing envelopes and 
misspelling names. Pinpoint picks 
up names and addresses from invitations 
(or any documents) and drops them, letter perfect, 
onto envelopes. Even if you dont always spell those tongue- 
twisting names right, at least youll be consistent. 


Jot down important from the desk of 


thoughts whenever RSE STINGS 


— : they strike. The note 
‘4 pad is perfect for pe 
. reminding you of th pnt P| 
B__— ! \ things you can't do 
4 x without. Or things ’ org 
ae you can | patch 


(415) 
530-1726 


Impress a friend with a personal invitation. It’s easy. The automatic 
dialer finds phone numbers displayed anywhere on the screen, not 
Just in special files. 
And it re-dials busy numbers automatically. So youre next in line 
— eT a he v . ; 5 © 1985 Pinpoint Publishing 
as soon as your friend’s broker hangs up. ae eens ti Desk 2X cel le 


Memory Card are trademarks, while Apple is 
registered trademark, of Apple Computer, Inc 


Accessories.°69 


Nine accessories to be precise. And in no time, they'll be so much a part 
of your AppleWorks routine, youll think of them as built-in, not added-on. Why? 
Y For openers, these handy desktop timesavers “pop-up” via windows from 
3) inside AppleWorks (and most other ProDOS programs). So you can 
stop what youre doing to jot down a note, address a letter, or call 
a friend. 
You can even figure out some figures with our calculator. 
Tap data bases or other computers through our communications 
window. Even whip out short memos, forms and labels with our 
' line-at-a-time typewriter. And then continue AppleWorks without 
missing a beat. Or a byte. 
What's more, Pinpoint’s as easy to use as AppleWorks itself. 
Same commands. Same hardware. 
Plus you can boost Pinpoint’s performance by adding an Apple Extended 
Memory Card, the new, high-capacity UniDisk 3.5 floppy, a hard disk, a modem, or 
one of many popular printers. And with our Pinpoint Toolkit, you 
can even add desktop accessories of yourown. : 
Want more? ! 
Then visit your local computer shop. ce FM 
Or call (415) 530-1726 fora dealer witness 
near you. You'll see that Pinpoint does en 
more than give AppleWorks a handful oe go 
f of accessories. open 
, It gives AppleWorks the works. 


SPECIAL PURCHASE— MAXIMUM PERFORMANCE BUNDLES 


IOMB SIDER Hard Disk, Siderware, plus Pinpoint for only $660.00 
20MB SIDER Hard Disk, Siderware, plus Pinpoint for only $960.00 
Pinpoint, plus 256K RAM for RamWorks/Multi-Ram/Apple $100.00 


64K RAMWORKS, AppleWorks Expander Software, plus Pinpoint $218.00 
64K RAMWORKS, AppleWorks Expander, Pinpoint, plus 256K RAM $278.00 
512K RAMWORKS, AppleWorks Expander Software, plus Pinpoint $318.00 
IMeg RAMWORKS, AppleWorks Expander Software, plus Pinpoint $408.01 
256K Z-RAM, AppleWorks Expander Software, plus Pinpoint $418.01 
512 Z-RAM, AppleWorks Expander Software, plus Pinpoint $468.0 


FAMOUS BRAND MODEMS, Bundled with Pinpoint 

Prometheus 1200A, 1200 Baud External IIc/Ile*/MAC*/IBM* $368.00 — 
Prometheus 300c, Compact 300 Baud External Mounts on the IIc $208.00 

Volksmodem 1200, 1200 Baud External IIc/Ile*/MAC*/IBM* $238.00 

ZOOM Ile, 300 Baud Internal Ile/Enhanced Ile $188.00 

1 *Requires $10-15 cable and/or serial interface card, Subject to availability and price changes 

Most items available from your dealer. 


CIRCLE NUMBER 18 


Apple II/Ile 


If This Powerful 


Applesoft Editor Were Any 


M eet the word proces- — 
sor for writing pro- 
grams, complete with f 
HELP Screens for quick 
reference. 

With GALE (Global 
Applesoft Line Editor), single keys stand for 
long, complicated sequences of programming 
commands. Now you can automatically insert 
or delete changes in program lines. Or change 
a character or word wherever it appears. And 
no more retyping the rest of a line after a 
change. So you spend significantly less time 
typing. 

GALE eliminates dozens of keystroking 
operations while it lets you instantly renumber 
your program lines, or take two programs and 
merge them. Or see how much space is left 
on your disk. 

You'l like the immediate cross-index of all 
your variable names, auto-line numbering and 
other valuable utilities. 


Author: Sandy Mossberg 
System Requirements: Applesoft compatibility and DOS 3.3 
Apple is a registered trademark of Apple Computer, Inc. 


Copyright © 1983 by MicroSPARC. 


Simpler, Your Keyboard 
Could Look Like This. 


GALE! You'll wonder how 
along without it. 


To order fill out the attached coupon or call 
617-371-1660. 


Wf MicroSPARC Inc. 


| want GALE! Here’s my $49.95 


ayable in U.S. funds only. 


[J Mastercard Visa Check, M. ©. 
Mass. residents add 5% sales tax) POSTPAID 
Name Tel # 
Address _ 7 

City State Zip 


Signature Date 


§ Charge Card # Exp Date 
: MicroSPARC Inc., 45 Winthrop St., Concord, MA 01742 H 


CIRCLE NUMBER 19 


LISTING 1: NIBBLE.CALC (continuea) 2266 N= VAL (N$): IF N < 1 OR N > 5 THEN PRINT 


1678 
1689 
1696 
1788 
1718 
1726 
1738 


1748 
1758 
1768 
1778 


1788 


REM 
M( VAL (N$)) = 
RETURN 
REM 
REM 
REM 
VTAB 11: 
V4) 
GET C$ 
IF (C$ < "®" OR C$ > "9") AND C$ < > " 


VAL (DV$): GOSUB 5528 


- GET Tv$ - 


HTAB 22:TV$ = "":PC% = B:EC% 


." AND C$ < > CHR$ (8) AND C$ < > "E" 
AND C$ < > "U" THEN RETURN 

IF LEN (TV$) = 15 THEN 18198 

IF (C$ > = "®" AND C$ < = "9") OR (C$ 
= "." AND PC% = @ AND EC% = @) OR (C$ = 
“"E" AND EC% = ®) THEN PRINT C$;:TV$ = T 
V$ + C$: IF POS (@) = 22 THEN GOSUB 18 

C$: PRINT C$; 


fe] 
a2 
4 
< 
fA 
tou 


IF C$ = "U" AND ( LEN (TV$) = @ OR’ RIGHT$ 
(TV$,1) = "E") THEN PRINT “-";:TV$ = TV 
$ + "-": IF POS (@) = 22 THEN GOSUB 18 
88:TV$ = "-": PRINT "-"; 

IF C$ = "E” AND EC% = @ THEN EC% = 1 

IF C$ = "." AND EC% = @ AND PC% = @ THEN 
PC% = 

IF C$ < > CHR$ (8) OR LEN (TV$) = @ THEN 
1749 

PRINT CHR$ (8);: PRINT " ";: PRINT CHR$ 
(8); 

IF RIGHT$ (TV$,1) = "E” THEN EC% = & 

IF RIGHT$ (TV$,1) = "." THEN PC% = @ 

IF LEN (TV$) = 1 THEN TV$ = "" 

IF LEN (TV$) > 1 THEN TV$ = LEFT$ (TV 
$, LEN (TV$) - 1) 

GOTO 1748 

FOR I = 1 TO 15: PRINT " ";: NEXT : HTAB 
22 

RETURN 

REM 

REM - RUN PROGRAM - 

REM 

HOME : VTAB 2: HTAB 15: INVERSE : PRINT 

” RUN PROGRAM ": NORMAL 
J=l 

FOR I = 1 TO 5 
J = J + 3: VTAB J: HTAB 1 

IF P%(1) = 1 THEN INVERSE : PRINT “ “; 

> NORMAL 

IF P%(1) = @ THEN PRINT " "; 

PRINT " PROGRAM "; I 

PRINT "| TAG = ";T$(I) 

NEXT 

PRINT : INVERSE : PRINT “ “;: NORMAL : PRINT 


" <ESC> TO QUIT" 
VTAB 22: HTAB 1: 
"1-5]: ";: GET N$: PRINT N$; 

IF N$ = CHR$ (27) THEN RETURN 
N = VAL (N$): IF N < 1 OR N > 5 THEN PRINT 
CHR$ (7);: GOTO 2936 

IF P&%(N) = 8 THEN 28998 

HOME : ONERR GOTO 4559 

ON N GOTO 33868, 3548, 3788 , 4828 , 4260 


PRINT " PROGRAM" ;LB$; 


VTAB 22: HTAB 2: FLASH : PRINT CHR$ (7 
);" PROGRAM ":N:” IS EMPTY ": NORMAL 
FOR | = 1 TO 588: NEXT I: RETURN 
REM 
REM - PROGRAMMING ROUTINE - 
REM 
HOME : INVERSE : VTAB 1: HTAB 15: PRINT 
" PROGRAMMING “: NORMAL 
J=1 
FOR I = 1705 
J = J + 3: VTAB J: HTAB 1 
IF P%(I) = 1 THEN INVERSE : PRINT " ": 
NORMAL 
IF P%(I) = ® THEN PRINT " "; 
PRINT " PROGRAM ":I 
PRINT " TAG = ";T$(I) 
NEXT 
PRINT : INVERSE : PRINT " ”;: NORMAL : PRINT 


" «<ESC> TO QUIT" 
VTAB 22: HTAB 1: 

i ono) emer 
IF N$ = 


PRINT “ PROGRAM" ;LB$; 
GET N$: PRINT N$; 
CHR$ (27) THEN RETURN 


22708 


22808 
2298 
2388 
2318 
2328 


23308 


2348 


2358 
23608 
23768 
2388 
2398 


CHR$ (7);: GOTO 2249 

IF P%(N) = @ THEN GOSUB 2320: GOTO 383 
4) 

IF P%(N) = 1 THEN GOSUB 2468: RETURN 
REM 

REM - ENTER NEW PROGRAM - 

REM 

HOME : INPUT "TAG = ";TS$(N): IF LEN (T 


$(N)) > 78 THEN T$(N) = LEFT$ (T$(N),78 
) 

HOME : INVERSE : PRINT “ENTER YOUR PROG 
RAM #";N;": "“,LB$;"";LA%Z(N) > "-";UA%(N) 5” 
PRINT LB$;" BLANK LINE = 
IT J": NORMAL 

I = 1:P%(N) = 1 

INPUT "";A$(1) 

IF LEFT$ (A$(1),1) = "Q" THEN RUN 

IF LEN (A$(I)) = ® THEN RETURN 

IF VAL (A$(I)) < LA%(N) OR VAL (A$(I) 
) > UAZ(N) THEN PRINT CHR$ (7); "LINE N 
UM OUT OF RANGE ";LB$;"";LA%(N);"-" ; UA%( 


FINISH; Q = QU 


N);"]": PRINT "RETYPE LINE: ":I = I - 1 

IF I = 188 THEN RETURN 

T=I1I+1 

GOTO 2368 

REM 

REM - EDIT OLD PROGRAM - 

REM 

HOME 

VTAB 1: HTAB 1: INVERSE PRINT "“EDIT> 
L(IST T(AG CCHANGE E(RASE Q(UIT ";: NORMAL 


: GET C$: PRINT C$; 

IF C$ < > "L" THEN 2569 
HOME 
ON N 
LIST 
LIST 
LIST 


GOTO 2518, 2528, 2538, 2548, 2550 
3318,3518: GOTO 2478 
3558,3758: GOTO 2478 
3798,3998: GOTO 2478 

LIST 4830,4238: GOTO 2478 

LIST 4278,4478: GOTO 2479 

IF C$ < > "C" THEN 2768 

HOME : INVERSE : PRINT "“CHANGE> ENTER L 
INE(S): ";LB$;"";LA%(N);"-";UA%(N); "J" 
PRINT LB$;” BLANK LINE = FINISH; Q = QU 
IT J": NORMAL 

GOSUB 2359 

PRINT D$; "OPEN CAL.” 
PRINT D$; "CLOSE CAL.” 
ELETE CAL." + N$ 

PRINT D$; "OPEN CAL.” + N$ 

PRINT D$: "WRITE CAL.” + N$ 

PRINT "DEL " + STR$ (LA%(N)) + "," + 
(UA% (N) ) 

IF N= 
IF 
IF 


+ NS 
+ N$: PRINT D$;"D 


STR$ 


THEN 
THEN 
THEN 
IF THEN 
IF THEN 
FOR J = 1 7T0 1 
PRINT A$(J) 
NEXT 

PRINT "RUN" 
PRINT 0$; "CLOSE CAL." 
GOTO 3228 

IF C$ < > "E" THEN 2916 

HOME PRINT "ERASE> READY TO ERASE PRO 
GRAM #";N: PRINT “PRESS <RETURN> TO CONF 
IRM DELETION": PRINT “ OR <ESC> TO REJ 
ECT DELETION" 


LIST 
LIST 
LIST 
LIST 
LIST 


3318,35198 
3559, 37598 
3798 3998 
4838 ,4230 
4270, 4478 


22222 
uuoouidht 


ObWMr 


+ N$ 


GET C$ 

IF C$ < > CHR$ (13) AND C$ < > CHRS$ 
(27) THEN PRINT CHR$ (7);: GOTO 2778 
PRINT C$; 

IF C$ = CHR$ (27) THEN HOME : GOTO 24 
78 
D$ = CHR$ (4) 

PRINT D$; "OPEN CAL.” + N$ 

PRINT D$;"CLOSE CAL." + N$: PRINT D$;"D 
ELETE CAL." + N$ 
P%( VAL (N$)) = @:T$( VAL (N$)) = "" 
PRINT D$; "OPEN CAL. INFO" 

PRINT D$; "WRITE CAL. INFO” 

FOR I = 1 TO 5: PRINT P%(1): PRINT T$(I 
): NEXT 


continued on next page 
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LISTING 1: NIBBLE.CALC (continued) 
4699 IF E = 187 THEN E$ = "BAD SUBSCRIPT " 
2898 PRINT D$: "CLOSE CAL. INFO" 4700 IF E = 128 THEN E$ = “REDIMENSIONED ARR 
2988 RUN AY" 
2918 IF C$ < > "Q" THEN 2938 4710 IF E = 133 THEN E$ = “DIVISION BY ZERO" 
2928 RETURN 4720 IF & = 163 THEN E$ = "TYPE MISMATCH ”" 
2930 IF C$ < > "T" THEN PRINT CHR$ (7);: GOTO 4730 IF E€ = 176 THEN E$ = “STRING TOO LONG" 
2470 4740 IF E = 191 THEN E$ = "FORMULA TOO COMPL 
2948 HOME : INPUT "TAG = ";T$(N) EX" 
2958 PRINT D$; "OPEN CAL. INFO" 4750 IF © = 224 THEN E$ = “UNDEFINED FUNCTIO 
2968 PRINT D$: "WRITE CAL. INFO" N" 
2978 FOR L = 1 TO 5: PRINT P%(L): PRINT T$(L 4760 IF E = 254 THEN E$ = "BAD RESPONSE TO A 
): NEXT N INPUT STATEMENT" 
2986 PRINT D$: "CLOSE CAL. INFO” 4778 POKE 216,90 
2998 GOTO 2479 4788 RETURN 
3080 REM 4798 PRINT : PRINT : PRINT "PRESS ANY KEY TO 
3018 REM - SAVE PROGRAM - CONTINUE ";: GET K$ 
3020 REM 4806 PRINT K$ 
3038 PRINT D$:"OPEN CAL." + N$ 4810 RUN 
3048 PRINT D$;"CLOSE CAL.” + N$: PRINT D$;"D 4820 REM 
ELETE CAL." + N$ 483@ REM - READ INFO - 
3058 PRINT D$;"OPEN CAL." + N$ 4848 REM 
3068 PRINT D$: "WRITE CAL." + N$ 4858 ONERR GOTO 4949 
3078 PRINT "DEL ” + STR$ (LA%(N)) + "," + STRS 4860 PRINT D$,"OPEN CAL. INFO" 
(UA%(N) ) 4870 PRINT D$; "READ CAL. INFO" 
3886 FORJ=1TOI-1 4886 FOR J = 1705 
3898 PRINT A$(J) 4890 INPUT P%(J) 
3188 NEXT 4988 INPUT T$(J) 
3116 PRINT "RUN" 4918 NEXT 
3120 PRINT D$:"CLOSE CAL.“ + N$ 4929 PRINT D$: "CLOSE CAL. INFO” 
3138 PRINT D$; “OPEN CAL. INFO” 4938 RETURN 
3148 PRINT D$; "WRITE CAL. INFO" 4948 CALL - 3288: POKE 216,8: PRINT D$"CLOS 
315@ FOR J = 1705 E CAL. INFO": PRINT D$"DELETE CAL.INFO": IF 
3168 PRINT P%(J): PRINT T$(J) PEEK (222) = 5 THEN PRINT D$"OPEN CAL. 
3178 NEXT INFO": PRINT D$"WRITE CAL.INFO": FOR I = 
3188 PRINT D$;"CLOSE CAL. INFO" 1 TO 5: PRINT @: PRINT "": NEXT : PRINT 
3198 REM D$"CLOSE CAL. INFO": GOTO 4859 
3200 REM -- SCHEDULE EXEC -- 4950 HOME : VTAB 12: PRINT "ERROR #" PEEK (2 
3210 REM 22)" IN LINE “ PEEK (218) + PEEK (219) « 
3220 PRINT D$: "EXEC CAL.” + N$ 256: END 
3238 END 4960 REM 
3270 REM 4978 REM - READ MEMORY - 
3280 REM - BUFFER AREA BEGINS - 498G REM 
3298 REM -1- 4998 ONERR GOTO 525d 
3388 CLEAR : GOSUB 5599 5@8G PRINT D$: "OPEN CAL.MEMORY” 
3528 GOTO 4499 5818 PRINT D$; "READ CAL.MEMORY" 
3530 REM -2- 5820 FOR I = 1 TO 6: INPUT M(I): NEXT 
3548 CLEAR : GOSUB 5599 5838 PRINT D$; "CLOSE CAL.MEMORY" 
3768 GOTO 4499 5849 RETURN 
3778 REM -3- 5858 CALL - 3288: POKE 216.8: PRINT D$"CLOS 
3788 CLEAR : GOSUB 5598 E CAL.MEMORY": PRINT D$”"DELETE CAL.MEMOR 
4908 GOTO 4499 Y": IF PEEK (222) = 5 THEN PRINT D$"OP 
4018 REM -4- EN CAL.MEMORY": PRINT D$"WRITE CAL.MEMOR 
4828 CLEAR : GOSUB 5592 Y": FOR I = 1 TO 6: PRINT @: NEXT : PRINT 
4248 GOTO 4499 D$"CLOSE CAL.MEMORY": GOTO 4999 
4258 REM -5- 5868 HOME : VTAB 12: PRINT "ERROR #" PEEK (2 
4268 CLEAR : GOSUB 5592 22)" IN LINE “ PEEK (218) + 256 « PEEK 
4488 GOTO 4499 (219): END 
4499 PRINT : PRINT "PRESS ANY KEY TO CONTINU 5878 REM 
E ":: GET K$ 5@80 REM -SAVE MEMORY & PROGS- 
45098 PRINT KS; 5898 REM 
4518 POKE 216,8: GOSUB 5626: RUN 5188 HOME : VTAB 18: INPUT "ARE YOU SURE YOU 
4520 REM WANT TO QUIT? ":YN$: ON YN$ < > "Y¥" GOTO 
4538 REM - HANDLE ERROR - 138: GOSUB 5118: GOTO 5176 
4548 REM 5118 ONERR GOTO 13728 
455@ L = PEEK (218) + PEEK (219) + 256 5128 PRINT : PRINT D$; "OPEN CAL.MEMORY” 
456@ PRINT CHR$ (7):;”"ERROR IN LINE NUMBER " 5138 PRINT D$: "WRITE CAL .MEMORY” 
ob 5140 FOR I = 1 TO 6: PRINT M(I): NEXT 
4578 GOSUB 4696: PRINT E$: GOTO 4798 5158 PRINT D$;,"CLOSE CAL.MEMORY" 
4588 HTAB 21: GOSUB 46@@: PRINT CHR$ (7); LEFT$ 5168 PRINT D$,"SAVE NIBBLE.CALC": POKE 216,98 
(E$,16);: GET C$ : RETURN 
4592 HTAB 21: FOR I = 1 TO 16: PRINT ” “;: NEXT 5178 HOME : END 
: HTAB 22: CALL - 3288: GOTO 169 5188 REM 
4608 E = PEEK (222) 5198 REM - CALC DISPLAY - 
4619 IF E = @ THEN E$ = “NEXT WITHOUT FOR" 5208 REM 
4620 IF E = 16 THEN E$ = "SYNTAX ERROR é 5218 HOME 
4630 IF E = 22 THEN E$ = “RETURN WITHOUT GOS 5220 PRINT “ ";: INVERSE : PRINT “ NIBBLE CA 
UB” LCULATOR ";: NORMAL : PRINT “ BY NEWTON 
4640 IF E = 42 THEN E$ = "OUT OF DATA a S. LEE”: PRINT "+x COPYRIGHT 1986 BY MIC 
- REM 6 SPACES ROSPARC, INC #«" 
4650 IF E = 53 THEN E$ = “ILLEGAL QUANTITY" 5238 PRINT : INVERSE : HTAB 5: PRINT "V":: NORMAL 
466@ IF E = 69 THEN E$ = “OVERFLOW He 
REM 8 SPACES 5249 PRINT : INVERSE : PRINT "S":: NORMAL -: PRINT 
4670 IF E = 77 THEN E$ = "OUT OF MEMORY i “IN "LBS; "ARCSIN]" 
4680 IF E = 98 THEN E$ = "UNDEFINED STATEMEN 5258 INVERSE : PRINT “C”:;: NORMAL : PRINT "O 
TT" S  ":LB$;"ARCCOS]" 
continued on page 54 
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1792k 16-Bit lie! 


Why pay more fora lesser card that works in 8-Bit just because it’s advertised alot? You can buy Checkmate Technology's 
State-Of-The-Art MULTIRAM Ile™ that works great (100%) in 8-Bit, has a true Co-Processor port, & optional 16-Bit 
65C816 slot saver Co-Processor card. We’ve lowered many prices until 1-15-86 & we'll sell you Jeeves” at $29, Pinpoint™ 


at $49, or Supercalc 3A™ at $124, WITH EACH 576k OR LARGER MULTIRAM CARD. 


@ MULTIRAM Ile IS A DIRECT SUBSTITUTE FOR 
RAMWORKS II” or Apple Ext 80 column cards. 
MULTIRAM RUNS ALL (100%) 3rd PARTY SOFT- 
WARE that the others do & its PAL circuit allows for 
changing memory mapping protocols too! 

@ UP TO 768k MAIN BOARD MEMORY, UP TO 1024K 
PIGGYBACK BOARD MEMORY WITH FREE RGB, 
sharp 80 columns, Double Hi-Res Graphics, no slot-1 
interference! A TOTAL OF 1792k MEMORY AT A 


e 15 DAY MONEY BACK GUARANTEE, FREE SOFT- 
WARE UPDATES, FREE 64k MEMORY WITH EACH 
256k/512k CARD ONLY FROM COIT VALLEY 
COMPUTERS. 5 YEAR WARRANTY THAT, UNLIKE 
RAMWORKS, INSURES COVERAGE NO MATTER 
WHERE YOU BOUGHT IT! CALL FOR CURRENT 
PRICES, QUANTITY DISCOUNTS OR NEW FEATURES! 


Lower 


MUCH LOWER PRICE! 

OPTIONAL 16-Bit 65C816 CO-PROCESSOR CARD 
that plugs into MULTIRAM using no slots! TRULY STATE- 
OF-THE ART, BUT IT CAN’T RUN ON RAMWORKS! 


FREE APPLEWORKS TIME & DATE ON-SCREEN 
SOFTWARE that can auto-date and auto-time stamp 
database files with any ProDOS clock 


FREE ULTRA-FAST RAM DISK SOFTWARE that isn't 
like Ramworks™ $29 Ram disk software. It can be run 
alone or WITH APPLEWORKS. FREE RAM TEST & op- 
tional CP/M & Pascal Ram disk too! 


FREE APPLEWORKS EXPANDER SOFTWARE that 
modifies AppleWorks once so all features are automatic, 
loads ALL or PARTS of AppleWorks into memory, runs 
20 x faster, increases the Desktop over 1125k, auto- 
segments large files onto multiple disks, stores over 
5325 records! An increased Clipboard/Word Processor 
update, 16-Bit integrated software AND more piggyback 
memory is due soon. 


640k 1G6-Bit lic! 


Checkmate Technology’s State-Of-The-Art llc cards easily expand your lic up to 640k, are 100% compatable with all llc 
software/hardware, & come with the same FREE SOFTWARE as MULTIRAM Ile. MULTIRAM C is non-upgradable and MULTIRAM 
CX can be upgraded with a 16-Bit 65C816 Co-Processor kit! CALL FOR CURRENT PRICING & QUANTITY DISCOUNTS! 


e NO JUMPER WIRES, CLIPS, OR DRIVE REMOVAL RE- 
QUIRED FORINSTALLATION. ALL CHIPS ARE SOCKET- 
ED AND REMOVABLE - unlike the competition. 

@ USES ABOUT 50% LESS POWER than the competition- 
causing less power supply strain or battery pack drain! 

@ 15 DAY MONEY BACK SATISFACTION GUARANTEE 
from Coit Valley Computers. 5 YEAR WARRANTY THAT, 
UNLIKE THE COMPETITION, INSURES COVERAGE NO 
MATTER WHERE YOU BOUGHT IT! 


@ LOWER PRICES- We sell lic cards for much less, and our 
software updates are free, while competitors usually charge 
at least $10. 


OUR+OW PRICE 
ETE. 


64k MULTIRAM Ile 
128k MULTIRAM lle 
320k MULTIRAM lle 
576k MULTIRAM lle 
768k MULTIRAM lle 
1024k MULTIRAM lle/FREE RGB 
1280k MULTIRAM lle/FREE RGB 
1536k MULTIRAM Ile/FREE RGB 
1792k MULTIRAM lle/FREE RGB 


64k Memory Expander Chips (8) 
256k Memory Expander Chips (8) 
Pico™ Slimline Drive IIc, Ile, Il+ 
Apple Ile Enhancement Kit 
65C816 Co-Processor Card 
CP/M or Pascal Ram Disk (each) 
Switch-A-Slot 


CALL FOR OTHER APPLE PERIPHERAL PRICES. 


Lower 
OUR 4OW-PRICE 
| 


256k MULTIRAM C 

512k MULTIRAM C 

tlc Battery Pack 

C-VEU Flat Panel Display 


256k MULTIRAM CX 

512k MULTIRAM CX , 
16-Bit 65C816 Kit .................... 0... 135. 
($10 less if bought with card) 


Terms: Add $4-Ground or $6-Air shipping & phone # to all U.S. orders (foreign orders extra). Add 3% for P.O.’s (3% 7 net 30) & 
MasterCard/Visa (include #/expir). For fastest delivery send Cashier’s/Certified check, Money Order. C.O.D. (add $5) & personal 
checks accepted (allow 14 days). Tex res add 6%% tax. CALL FOR LATEST PRICES & QUANTITY DISCOUNTS! 


MULTIRAM/Multiview, Ramworks/Ramworks Il, Pico, Jeeves, Pinpoint, Supercaic respective trademarks of Checkmate Technology, Applied Engineering, WGE Int, PBI Inc, Pinpoint 


COIT VALLEY COMPUTERS (214) 234-5047 
Dallas, Texas 75240 


14055 Waterfall Way 


CIRCLE NUMBER 20 


LISTING 1: NIBBLE.CALC (continued) 
5260 INVERSE : PRINT "T";: NORMAL : PRINT "A 
N  ":LB$;"ARCTAN] " 
527@ PRINT “E";: INVERSE : PRINT "X":: NORMAL 
: PRINT "P ":LB$:"“LOG10]" 
5286 INVERSE : PRINT "L";: NORMAL : PRINT "O 
G  "; LBS; "18aXx]" 
5296 PRINT "S";: INVERSE : PRINT "Q";: NORMAL 
PRINT "RT ":LB$;"XA2]" 
5308 INVERSE : PRINT “A":: NORMAL : PRINT "B 
S  ":LB$:"XaY]" 
5310 INVERSE : PRINT "M";: NORMAL : PRINT “O 
O ";LB$;"XAl1/Y]" 
5326 INVERSE : PRINT “I":: NORMAL : PRINT "N 
T "; LBS. "1/X)}" 
533@ INVERSE : PRINT "R":: NORMAL : PRINT "N 
D ";LB$;"X!)" 
534@ PRINT "SI":: INVERSE : PRINT "N";: NORMAL 
PRINT "H_ “:;LB$; “ARCSINH]" 
5358 PRINT "C";:: INVERSE : PRINT “O":: NORMAL 
PRINT “SH ";LB$; “ARCCOSH]” 
5368 PRINT "TAN”;: INVERSE : PRINT "H":;: NORMAL 
PRINT “  ";LB$;"ARCTANH] " 
5370 PRINT : PRINT : INVERSE : PRINT “U":: NORMAL 
PRINT “NARY MINUS" 
538@ PRINT : PRINT "CLEAR DISPLAY:":: INVERSE 
: PRINT "D":: NORMAL 
5398 PRINT : PRINT “<ESC> TO QUIT" 
5400 VTAB 4: HTAB 28: PRINT “PROGRAM: “;: INVERSE 
PRINT “P";: NORMAL : PRINT “ INVERSE 
PRINT “#":: NORMAL 
5418 VTAB 6: HTAB 28 
5420 FOR I = 1 TO 5: PRINT “"; 1: 
5430 IF P%(I) = 1 THEN INVERSE : PRINT " "; 
NORMAL 
5449 IF P%(I) = @ THEN PRINT ULS: 
5450 PRINT " ";: NEXT 
5468 VTAB 8: HTAB 28: PRINT “DISPLAY: ": PRINT 
5470 INVERSE : HTAB 20: FOR I = 2@ TO 38: PRINT 
" ".. NEXT > PRINT 


Set Up Your DOT MATRIX PRINTER 
With a Touch of a KEY! 


PCP 


No longer do you have to enter long “set 
up strings” to take advantage of your 
DOT MATRIX PRINTER's capabilities 
Just select from the MENU...Jet your 
computer do the rest! Condensed Char- 
acters, Double Strike Printing, Empha- 
sized Characters, Special Line 
Spacing, and more! Comes complete 
with PROGRAM DISKETTE and OP- 
ERATING MANUAL. Includes intorma- 
tion on how to program your printer in 
Basic, VisiCalc’, Applewriter. PCP is 
avery handy utility program you will use 
again and again! 

VERSIONS AVAILABLE: 


Apple tl, f+, tle, lic and lit 
WITH 

Apple DMP & imagewriter 
C.ltoh Prowriter ! & Ii 

NEC PC8023A 

All Epson, Gemini & Okidata 
& More Printers 


PRO/PAC 


14925 Memorial Drive- Dept. C 
Houston, Texas 77079 
(713) 496-1179 


PRINTER 
CONTROL 
PROGRAM 


EPSON PRINTER CONTROL PROGRAM 


PRINTER OPTIONS 


CONDENSED G 
DOUBLE WIDTH 
ITALICS. 


PROPORTIONAL 
ELITE PITCH 

10 LINES/INCH 
HALF SIZE 
EMPHASIZED K 
OOUBLE STRIKE L 


SPECIAL SPACING 
UNIDIRECTIONAL 
BIDIRECTIONAL 


SOME COMBINATIONS 


EMPHASIZED DOUBLESTRIKE 
QOUBLEWIDE EMPHASIZED 

DOUBLEWIDE EMPHASIZED DOUBLESTRIKE 
CONDENSED DOUBLEWIDE 

CONDENSED DOUBLEWIDE DOUBLESTRIKE 
CONDENSED DOUBLESTRIKE 

CONDENSED HALF SIZE 

RETURN TO STANDARD SETTINGS 


ra) 
N 
° 
Le 
a 
® 
s 
T 


TYPE LETTER, PRESS RETURN (0 ENDS) 


EPSON FX MENU 
Be sure to specify BOTH computer 


and printer to obtain correct version.& 


—__ NEWFEATURES__.. 


ONLY$29.95 


plus $2 00 shipping and handing USA 
VISA and MasterCard Credit Cards 
See Your Dealer or Write or Cail Us! 


eivens pera 
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5488 
5498 


5588 
5519 
5528 


5538 
55408 


5550 
5560 


5578 


5586 
5598 


5680 


5618 
5620 


END OF LISTING 1 


HTAB 28: PRINT " ";: HTAB 38: PRINT ” “ 
HTAB 28: FOR I = 20 TO 38: PRINT " ";: NEXT 

PRINT NORMAL 

PRINT HTAB 22: PRINT "MEMORY: "; 

HTAB 28: INVERSE PRINT “K";: HTAB 38: 
PRINT "S";: NORMAL : PRINT “TO ";: INVERSE 
: PRINT "R";: NORMAL : PRINT "CL" 

VTAB 16: FOR I = 1 TO 6: HTAB 28: PRINT 
mare) te 

FOR II = 1 TO 15: PRINT UL$;: NEXT 

IF MCI) < > @ THEN HTAB 22: PRINT M(I 

): 

PRINT NEXT 

PRINT HTAB 28: INVERSE PRINT “@";: NORMAL 

PRINT " MODE: DEG RAD"; 

RETURN 

REM READ DV$ VALUE FORM PAGE 3 
OvV$ = "":L = PEEK (768): IF L < 1 ORL > 
13 OR L < > PEEK (769 + L) THEN N = @: 
DV$ = "@": RETURN 

FOR I = 1 TO L:DV$ = DV$ + CHRS ( PEEK 
(768 + 1)): NEXT POKE 768,255:N = VAL 
(DV$): RETURN 

REM STORE DV$ ON PAGE 3 
OV$ = STR$ (N):L = LEN (DV$): POKE 768 

.L: FOR I = 1 TOL: POKE 768 + I, ASC ( MID$ 
(DV$,1,1)): NEXT POKE 769 + L,L: RETURN 


KEY PERFECT 5. 
RUN ON 
NIBBLE .CALC 


CODE -5.@ LINE# - LINE# CODE -4.8 
8E1DC7C1 16 - 188 A618 
9FB851298 118 - 288 498B 
48B011BF 210 - 386 4ABE 
38C3962A 318 - 420 5398 
E3@A5B6E 418 - 580 87FO 
498DE3EE 510 - 688 835C 
F184943F 618 - 788 493B 
093F2542 710 - 888 3BD6 
CC6CBED8 810 - 988 5DE2 
7AA67F35 918 - 1888 7158 
@2480B98 1818 - 11698 6DB4 
C5C34956 1118 - 1288 4400 
A66B4434 1218 - 1388 C867 
59DBBC7A 1318 - 1468 8DF3 
CAB19AB7 1419 - 1582 6269 
972ABA1C 1518 - 1688 5887 
A1F51793 1618 - 1788 B4A6 
679AE5FO 1718 - 1888 A5C3 
OOO84F67 1818 - 1908 5339 
9AB1FECF 1918 - 2688 3E68 
A39649F5 2818 - 2188 711B 
E277F43E 2118 - 2288 41B1 
E3392B7E 2218 - 2380 5C9B 
3DCF984F 2318 - 2488 9FC9 
8FE42444 2418 - 2588 4D31 
732871F1 2518 - 2688 7284 
3111BC1A 2618 - 2708 64FB 
B9OE@EFEE 2718 - 28808 65EB 
DBESDAFB 2818 - 2986 6548 
2F76E876 2918 - 3888 4B63 
5DAAB77E 3818 - 3188 583F 
99BBACF5 3118 - 3288 49D1 
20920342 3218 - 3548 2B28 
98D784C9 3768 - 4486 257A 
7AF4F848 4498 - 4589 59BD 
ADD6A696 4598 - 46898 83E2 
A4BD8D2D 4698 - 4788 7CCB 
QF2EFD83 4798 - 4889 3C84 
28CC186E 4898 - 49868 8264 
EF325A6C 4999 - 5888 9BBD 
598A76CC 5998 - 5188 6129 
A834E213 5198 - 5288 881E 
56088564 5298 - 5388 A140 
3A77E5E9 5398 - 5488 5FDD 
FEA6A2AF 5498 - 5588 682E 
9A7788CB 5598 - 5628 5DD8 
352E16D5 = PROGRAM TOTAL = 2961 


The Nibble Express Volume V 
contains over $600* worth of 
ready-to-type Apple programs 
from Nibble Magazine 1984. 
It’s an anthology of the best 
articles and programs for 
Home, Education, Business, 
and Entertainment with up- 
dated listings and enhance- 
ments. It also contains Tips ‘N 
Techniques, Utilities, and 
other goodies for getting more 
out of your Apple. 


Even if you own all 12 issues 
of Nibble from 1984, you'll 
want the Express V so you can 
have updated program listings 
in one convenient package. 
It’s a must for your library. 


Nibble Express V Includes: 


Nibble File Cabinet—Flexible 
Database Management System 
that lets you create variable 
length records. 


Applesoft Global Editor— 
Powerful Editor for Applesoft 
programs offers selected or 
automatic search and replace. 


Sound Synthesizer—Sound 
Creation Utility that lets you 
“draw” your sound effects and 
simple melodies on the Hi-Res 
screen. 


RAM Disk 64—Create a 170 
sector pseudodisk on your 
128K Ile or IIc for fast access 
with normal DOS 3.3 
commands. 


Coupman-— Make better use of 
your coupons and save! 


Nibble Diner—Personal Diet 
Planner provides nutritional 
analysis of foods and keeps 
track of your eating habits. 


Nibble Garage—Improves car 
care by tracking maintenance 
and generating reminders of 
necessary repairs. 


Nibble Broker—Track your 
stocks and graphically display 
your profits. 


Hi-Res Houdini—Machine 
Language Graphics Utility 
creates special graphics 
effects. 


| coe ieee sng oeert arent 1mm eke ae orate 


The BASIC Assembler— 


Editor/Assembler package, 
written in Applesoft BASIC, 
produces machine lanquage 
programs quickly and easily. 


*$600 commercial value if purchased on disk 
=a a oe ae Gs oe se oe ee eee eee ea 


CO Send me Nibble Express V! Here’s my $419.95 ] 
“ 1 

Also send me: Please add $4.75 ship- = (MasterCard | 
ONibble Express Vol. | at $14.95 ea. ping/handling per copy O Visa 1 
ONibble Express Vol. Il at $14.95 ea. (outside U.S. add: $2.75 C1) Check, M.O. i 
ONibble Express Vol. Ill at $17.95 ea. Surface or $6.50 Air Mail ' 
ONibble Express Vol. IV at $17.95 ea. per copy). Mass. resi- | 
Payable in U.S. funds only. dents add 5% sales tax. : 
J 

Name | 
1 

1 

Address : 
i] 

City State Zip : 
1 

1 

Charge Card # Exp. Date : 
: 1 

Signature Tel. # 4 
45 Winthrop St., Concord, MA 01742 (617) 371-1660 : 
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Apple is a registered trademark of Apple Computer, Inc. 


CTT sunennancnenancooneoenn anes 


his Hi-Res 


graphics strategy game pits you against the 
computer in deadly tank combat. You control 
six tanks to defend your headquarters. 


NOLEUOUDDOROEDODDONUDDODUNRDNONEODOONCODDONOARDOONGHNONGDONONOGDHOONODDONANDOOOODDOGEONOOONONROOONODDONOOOOOOOONOOOCONONOOONONOOGODDOOOGNONOOEONOROGOLOOOOODONOOSOOUAEGOOOODOOUNOGEUONGGEOONOGEOUONGOOOONODODONCEOAOOOEONOOUGOOOOOOGLOUGOENOOCODONOUOOONOUGDOOOUEOOOUGHNOOEOOOOOODOONROOUAUODDOGOOONOCOLONONeODOOOUONONOONOONOONONOOHOOE 


2 t happened one cold, winter day — my joy- 
stick died. I couldn’t shoot invading aliens or defend 
space ports. My favorite action games were use- 
less, as blank as the empty monitor screen. I stared 
at it dully. A snowy Sunday afternoon is no time 
to lose your joystick. In desperation I turned on the 
television. 

The local cable station was running a vintage 
World War II movie. Real war. Footage of tanks 


overrunning the French countryside and soldiers 


Rudy A. Guy, 1114 West 22nd St., Erie, PA 16502. Tank Combat 
is compatible with DOS 3.3 and ProDOS. 


marching in formation. The tanks were everywhere 
— barrelling down country lanes, plowing through 
thick hedges, lurching over ditches. Tanks blow- 
ing up, tanks firing ammunition at an invisible 
enemy. Then it came to me — Tank Combat, the 
tank warfare of the 21st century! 

Tank Combat is a strategy game that pits you 
against the computer in an all-out struggle. You con- 
trol six tanks that are about to be attacked by the 
invading computer-controlled tanks. Your goal is 
to wipe out all the computer tanks before they anni- 
hilate your forces. A game in progress is shown in 
Figure 1. Tank Combat does not use paddles or 
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SEARCH AND DESTROY 
TYPOS IN THE PROGRAMS YOU 
ENTER FROM MAGAZINES* 


[. order to eliminate the typos in your 
programs you've got to find them first. 
And that can mean hours of wasted 
time spent in proofreading. Character by 
character, line by line. 

But now you can spotlight these typ- 
ing errors in the programs you enter 
from books and magazines. Instantly, on 
your video screen or printer. 

Key Perfect generates a “Check Code 
Table” Match it against the table 
published with the original program and 
you can quickly and easily detect entry 
errors. 


Key Perfect generates a precision 
check code for: 
¢ Each 10 lines of BASIC (Applesoft 
and Integer). 
* Each 80 Bytes of Machine 
Language (binary file). 


Key Perfect is also the perfect compan- 


ion program to microSPARC’s Global 
Applesoft Line Editor (GALE) or Nibble's 
Machine Language Editor (MLE), which 
feature word processing techniques for 
correcting your programs. 


Key Perfect promises to make your pro- 


grams perfect—even if your typing isn't! 


“ Key Perfect tables are currently published in Nibble magazine and several User Group newsletters. 


Copyright © 1983 by MicroSPARC 


| Here's my $29.95. 


New! ProDOS Key Perfect! Works with 
both DOS 3.3 and ProDOS disks automati- 
cally. Plus, a new, improved, more accu- 
rate checksum algorithm! Generates tables 
with old and new codes. 


Current Key Perfect owners: 
Upgrade to the new ProDOS version by 
sending $10.00 (postpaid) plus the cover 
page from your original Key Perfect 
manual. 


Send n me Key Perfect! POSTPAID 


Payable in U.S. funds only. 


1 MasterCard (Visa CCheck, M.O. 
(Mass. residents add 5% sales tax) 


45 Winthrop St., Concord, MA 01742 (617) 371-1660 


| Name Tel. # 
| Address 

| City State 

| 

| Signature Date 

| Charge Card # Exp. Date 

| 


joysticks. Leave out the sound routine and you can sneak in games 
at the office. 


PLAYING THE GAME 

When TANK.COMBAT is run, the computer draws the 16 by 18 
playing grid and places 28 anti-tank barriers on it — 14 in the top 
half and 14 in the bottom. Next, in the top half of the grid (rows 
1-8) the computer places its headquarters (HQ), ammo dump (AD) 
and fuel depot (FD), and hides six anti-tank mines. The computer’s 
six tanks are then positioned in the top three rows of the grid. Then 
you can place your HQ, fuel depot, ammo dump and anti-tank mines 
anywhere on the lower half of the grid (rows 9-16). Your six tanks, 
however, must start the game in rows 14-16. 

Tanks have an armor rating of one to six, with six the most vul- 
nerable and one the strongest. The armor rating is the same as the 
number of the tank. When all the pieces have been placed on the 
game grid, the action begins. 


Placing Shots 

Each round begins when the computer player places its shots in 
secret locations. Then you place your shots and move your tanks. 
After the computer moves its tanks, the positions of its shots are 
revealed one by one, and you are informed of any damage they in- 
flict. Finally, your shots are displayed in the same manner. Tanks 
and barriers are always destroyed when hit; mines are destroyed ran- 
domly at a 50/50 rate; HQ’s, ammo dumps, and fuel depots can 
only be destroyed when overrun by a tank. 

Placing a shot is accomplished by first moving the solid square 
using the I, J, K, and M keys, and then entering its position by press- 
ing the space bar. Shots may be placed anywhere on the board, ex- 
cept where you have already placed shots for that round. 

Each player starts with six shots per round, but this number is 
decreased if the player’s HQ or ammo dump is overrun. If the ammo 
dump is overrun, then the number of shots is reduced to one shot 
per tank. If the HQ is overrun, the total is cut in half. For instance, 
a player with four tanks and no ammo dump gets four shots, and 
a player with an ammo dump and any number of tanks, but no HQ, 
gets three shots. 


Moving Tanks 

Each tank that hasn’t been destroyed may be moved, starting with 
your number one tank and ending with number six. The total number 
of remaining moves is displayed at the bottom of the screen. One 
tank move is a move in either the horizontal or vertical direction. 
A diagonal move takes two moves — one horizontal and one verti- 


FIGURE 1: Tank Combat in Progress 


or | SE |) J | oe My fa} 
ENTER LOCATION OF SHOT #3. 
fait ee Moe 
<SPACE> FO FLACE SHOT . 


TABLE 1: Program Logic 


Lines Function 

100 Loads the shape table and initializes the pointers 

110-130 Initialization phase of game 

170-240 Check the game grid to determine the number of 

shots and moves for the human player 

Record the player’s shot coordinates 

Record the player’s tank moves, check for mines, 

HQ, fuel depot or ammo dump and take appropriate 

action 

Check for a winner 

Check whether the computer’s shots hit the player’s 

tanks 

Check tank positions and determine the outcome of 

tank-to-tank combat 

680 Checks for a winner 

690-780 Initiate the computer’s move and check the number 

of shots and spaces allowed 

Enter the computer’s shot coordinates for use after 

the next player’s tank move 

860-930 Move the tanks on the computer’s game grid 

940 Checks for a winner 

950-1040 Check whether the player’s shots hit a computer tank 
and check for a winner ; 

Check for tank-to-tank combat 

Checks for a winner 

Starts the next round 

Tank-to-tank combat routine 

Check for a winner or a tie game, and display the 

appropriate message 

Select computer shots based on player’s tank 

locations 

Select computer tank moves based on location of 

human tanks, HQ, ammo dump and fuel depot 

Initialization routine, which draws the game grid and 

places 14 barriers at random on both halves of the 

grid 

Locate computer’s game pieces on the grid 

Locate player’s game pieces on the grid 

Pick random numbers 

Draw and erase player’s mines at beginning and end 

of player’s turn 

Display where shots land on game grid 

WAIT loop 

Centering routine for messages 

POKE sound routine for messages 

Input routine 

Print I, J, K, M prompt 


250-290 
300-500 


510-520 
530-620 


630-670 


790-850 


1060-1100 
1110 
1120 
1130-1530 
1540-1650 


1660-1950 
1960-2770 


2780-3060 


3070-3310 
3320-3520 
3530-3550 
3560-3570 


3580-3630 
3640 
3650 
3660-3690 
3700-4100 
4110-4120 


cal. Each tank may move up to three squares in a turn, or you can 
choose not to move it. Use the I, J, K, and M keys to position the 
tank and the space bar to complete the move. If the move is illegal 
because you have exceeded the three-square maximum or the total 
for that round, you will be given another chance to move that tank. 
It is also illegal to move a tank to a square occupied by your own 
tank or an anti-tank barrier. A tank may pass through or jump over 
tanks or barriers, but may not land on them. 

Each player starts with 12 moves per round — two for each tank. 
When a tank is destroyed, the total is decreased by two moves. When 
a player’s fuel depot is destroyed, then the total becomes one move 
per tank. When the HQ is destroyed, the number of moves other- 
wise allowed is cut in half. 

Be careful of the enemy’s hidden mines on the top half of the board. 
Also, be sure you don’t move a tank onto a square where you have 
placed a shot. 


Tank-to-Tank Combat 
Another way to battle the opposition forces is to have a player’s 
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Master Diagnostics™ 


COMPLETE MAINTENANCE & DIAGNOSTIC 
PROCEDURES FOR THE APPLE // FAMILY! 


Thirty menu driven routines so you can do 
necessary maintenance at the push of a 
button. 

Master Diagnostics provides all of the tools 
and knowhow necessary so that anyone can 
do monthly maintenance duties. Calibrating 
disk drive speed, cleaning the drive heads, 
checking track alignment or adjusting your 
monitor to peek clarity is a snap. 


In addition to the maintenance routines, full 
diagnostic procedures are available with a 
single key strike. You can check any and all 
functions of your Apple // computer. Tests will 
report: whats right, whats wrong, what to do 
& how to do it, not just pass-fail exams! 


The user manual is easy to understand and 
is packed with money and time saving U-DO- 
IT information. The Disk Drive Analyzer sec- 
tion alone will pay for the package after just 
one use! 

As quoted by the experts; Nibble magazine 
says, “This program should be in the library 
of every Apple user’. Howard Sams Tech 
Manual, Softalk, InCider, Apple Orchard and 
Popular Computing have all awarded Master 
Diagnostics with triple AAA ratings. 
Consumers Guide chose Master Diagnostics 
as one of the best programs for 1984. 


WHEN ORDERING SPECIFY Version: 


M)[&|[+ mie or mic ony 


Master Diagnostics - $65.00 
With Head Cleaning Kit - $75.00 
Disk Drive Analyzer only - $39.95 


Call Free 1 800-835-2246 


NIKROM' 


Technical Products, Inc. 
176 Fort Pond Rd., Shirley, MA 01464 
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tank land on a space adjacent to the enemy’s tank (either horizon- 
tally or vertically). The survivor of the battle is the tank with the 
lower armor rating number. If the tanks have the same rating, both 
are destroyed. Since the armor ratings of the computer's tanks are 
never displayed, tank-to-tank combat is risky! 

An average game lasts 10 to 15 minutes. But, to paraphrase an 
ad slogan, Ill bet you can’t play just one game! 


ENTERING THE PROGRAM 
To key in the program, type in the Applesoft program shown in 
Listing 1 and save it before you run it with the command: 


SAVE TANK.COMBAT 


To enter TANK.SHAPES (Listing 2) first enter the Monitor by 
typing CALL —151 <RETURN >. Start entering the shape table 
at $803. When all the code has been entered. save the shape table 
by typing: 

BSAVE TANK.S,A$803,L$278 


For more help with entering Nibbie listings, see “A Welcome to New 
Nibble Readers” at the beginning of this issue. 


HOW IT WORKS 

TANK.COMBAT (Listing 1) relocates itself above Hi-Res page 
1. A binary shape table file, TANK.SHAPES (Listing 2), resides 
where Applesoft programs are usually placed. 

All of the major routines in TANK.COMBAT have REM state- 
ments, but Table 1 describes the program logic in greater detail. 


Turtle BASIC, Nibble Calculator and Tank Combat 
are available on diskette for an introductory price of 
$19.95 plus $1.50 shipping/handling ($2.50 outside the 
U.S.) from Nibble, 45 Winthrop St., Concord, MA 
01742. Introductory price expires 3/31/86. 


LISTING 1: TANK.COMBAT 


YO REM sxx exe RRR RR EK 
20 REM « TANK . COMBAT * 
38 REM « BY RUDY GUY * 
48 REM « COPYRIGHT (C) 1986 =» 
5@ REM « BY MICROSPARC, INC « 
6@ REM « CONCORD, MA @1742 «+ 
7Q REM xk ee RR ROR RRR 
8@ HOME : VTAB 12: HTAB 8: INVERSE : PRINT " 
TANK COMBAT” :: NORMAL : PRINT "“ BY RUDY 
GUY": PRINT “«« COPYRIGHT 1986 BY MICROS 
PARC, INC ««" 
98 IF PEEK (184) < > 64 THEN POKE 104,64: 
POKE 183,1: POKE 16384,8: PRINT CHR$ ( 
4) "RUN TANK. COMBAT" 
PRINT CHR$ (4)"BLOAD TANK. SHAPES , A$8@3" 
>: POKE 232,3: POKE 233,8: ROT= @: SCALE= 
1 
GOSUB 3662: REM 
E 
DIM A$(16,18): TEXT : HOME : 
“TANK COMBAT BY RUDY GUY" 
23:M$ = "x COPYRIGHT 1986 BY MICROSPARC, 
INC «": GOSUB 3652 
GOSUB 2788:TU = 1: 
REM BEGIN GAME 
MV = @:FL = @:HQ = @:HS = @:NU = 


198 


INITIALIZE SOUND ROUTIN 


VTAB 22:M$ = 
: GOSUB 3658: VTAB 


GOSUB 768 


HOME :M$ = 
3658 

FOR I = 1 TO 16: FOR J = 1 TO 18 

IF A$(I,J) = "MI2" THEN XDRAW 19 AT J = 
14,¥ + (1 * 9) 

IF AS(I,J) = "AD2" 
IF AS(I,J) = "FD2" 
IF A$(I,J) = "HQ2" 


"DISPLAYING HUMAN'S MINES.": GOSUB 


THEN HS 
THEN FL 
THEN HO 


6 
1 
1 


44g 


450 


460 
479 
480 
498 


588 
518 
528 
538 
546 


558 


568 


IF RIGHTS (A$(I,J),L) = "H" THEN MV = M 
V+ 1: IF HS < > 6 THEN HS = HS + 1 

NEXT J,I: IF FL = 1 THEN MV = MV » 2:FL = 
4) 


IF NOT HQ THEN HS = 
S = @ THEN HS = 1 
FOR I = 1 TO HS 


INT (HS / 2): IF H 


OB$ = "SHOT #4" + STR$ (I): GOSUB 4128:RS 
= 16:RE = 1:R = 1:C = 1:SH = 37:A$ = "K 
": GOSUB 37128 
HX(1) = R:HY(I) =C 
NEXT 
FOR I = 1 TO HS: XDRAW 37 AT HY(I) * 14, 
Y + (HX(I) * 9): NEXT 
REM MOVE TANKS 
FOR K = 1 TO 6:TX = @:TY = @ 
IF XH(K) > @ THEN TX = XH(K):TY = YH(K) 
IF TX = @ THEN 486 
HOME INVERSE VTAB 24: PRINT "MOVES R 
EMAINING: "MV; : NORMAL VTAB 21: HTAB L: 
PRINT "NEW LOCATION FOR TANK #"K: PRINT 
"USE I-J-K-M TO MOVE": PRINT "<SPACE> TO 
PLACE TANK"; 
FOR L = 1 TO 11: XDRAW 31 AT TY « 14,Y + 
(TX * 9): FOR D = 1 TO 5@: NEXT D,L:SH = 


28 + K: XDRAW SH AT TY « 
R = TX:C = TY:RS = 16:RE = 
"K": GOSUB 37198 

IF R = TX AND C = TY THEN XDRAW SH AT T 
Y « 14,Y + (TX « 9): XDRAW 31 AT TY « 14 
LY + (TX * 9): GOTO 4898 
MX = ABS (TX - R):MY = 
MX + MY 

IF M > 3 OR M > MV THEN PRINT PRINT CHR$ 
(7) "YOU CAN'T MOVE THAT FAR! ": XDRAW SH AT 
YH(K) » 14,Y + (XH(K) « 9): XDRAW 31 AT 
YH(K) » 14,Y + (XH(K) * 9): GOSUB 3648: GOTO 
348 

IF A$(R,C) = "HQ" THEN XDRAW 32 AT C »* 

14,Y + (R * 9):A$(R,C) = “" 

XDRAW 33 AT C « 


14,Y + (TX * 9) 
1:MT = 1:A$ = 


ABS (TY - C):M = 


IF A$(R,C) = "AD" THEN 

14,Y + (R * 9):A$(R,C) = "": 

IF A$(R,C) = "FD" THEN XDRAW 34 AT C « 
14,Y + (R « 9):A$(R,C) = “" 

IF A$(R,C) = "" THEN A$(R,C) = STR$ (K) 

+ "H":XH(K) = R:YH(K) = C:A$(TX,TY) = " 

XDRAW SH AT TY « 14,Y + (TX * 9): XDRAW 

31 ATC « 14,Y + (R * 9):TX(K) = R:TY(K) 

= C: GOTO 4698 

IF LEFT$ (A$(R,C),1) = "M" THEN XDRAW 

SH AT TY « 14,Y + (TX « 9):A$(R,C) = "": 
FOR D = 1 TO 58: XDRAW 35 AT C « 14,Y + 
(R « 9): NEXT : HCOLOR= 3: DRAW 37 AT C « 
14,Y + R * 9: HCOLOR= @:XH(K) = @:YH(K) = 
@:A$(TX,TY) = “"“: HOME : PRINT CHR$ (7) 
"TANK HIT MINE AND WAS DESTROYED! ": GOSUB 
3648: GOTO 4668 

IF A$(R,C) < > "" THEN HOME PRINT CHR$ 
(7)"THAT SPACE IS OCCUPIED.": XDRAW SH AT 


YH(K) » 14,Y + XH(K) * 9: XDRAW 31 AT YH 
(K) « 14,Y + XH(K) » 9: GOSUB 3648: GOTO 
3408 

MV = MV - M: IF MV = ® THEN K = 6 

TX = O@:TVY = @ 

NEXT HOME 
FOR I = 9 TO 16: FOR J = 1 TO 18: IF A$¢ 
I,J) = "MI2" THEN XORAW 19 AT J * 14,Y¥ + 
(I * 9) 
NEXT J,1I 

GOSUB 1548: REM CHECK FOR A WINNER 
IF SC = @ THEN 649 
FOR I = 1 TO SC 
IF A$(CX(I),CY(I)) = "" THEN PRINT "COM 
PUTER SHOT NUMBER “I" MISSED.": GOSUB 35 
88: GOTO 629 
IF A$(CX(I),CY(I)) = "B" THEN HCOLOR= 3 


DRAW 28 AT CY(I) * 14,Y + (CX(I) «* 9): 
A$(CX(1),CY(I)) = “": PRINT “COMPUTER SH 
OT NUMBER “I” DESTROYED A BARRIER.” 


GOSUB 3588: GOTO 628 
IF LEFT$ (A$(CX(1),CY(1)),1) = "M" THEN 

GOSUB 3538: IF N / 2 = INT (N / 2) THEN 
PRINT “COMPUTER SHOT NUMBER “I" MISSED. 
": GOSUB 3588: GOTO 6228 


continued on next page 


Software Discounters 


of America 
Orders Outside PA— 1-800-225-7638 


PA Orders — 1-800-223-7784 

Customer Service 412-361-5291 
Free Shipping on orders over $100 in continental USA 
*No surcharge for VISA/Mastercard 
Your card is not charged until we ship 


ACCOLADE 

Dambusters 

Hardball 

ACTIVISION 

Borrowed Time 

Great American Cross 
Country Road Race$24 

$24 


EPYX 


Deadline 


16 Enchanter 


Science: Grades 3/4 . 
Science: Grades 5/6 . 
Science: Grades 7/8 . 
Spanish 
US Geography .. 
US History 
World History 
ARTWORX 
Strip Poker 
Data Disk #1 female . 
Data Disk #2 male... 
AVALON HILL 
Beast War . 
Legionnaire 
TAC. ..... 
Telenguard ........ 
Tournament Golf ... 
BRODERBUND 
Bank St. Filer (64K) . . 
Bank St. Filer (128K) . 
Bank St, Mailer (64K) $41 
Bank St. Mailer (128K) $41 
Bank St. Writer (64K).$41 
Bank St. Writer (128K) $41 
Bank St. Speller ....$41 
Dazzle Draw (128K) . .$36 
Fantavision........$29 
Karateka 
Print Shop 
Print Snop 
Companion 
Print Shop Graphics 
Library Disk #1 . 
Print Shop Graphics 
Library Disk #2 ...$15 
Print Shop Graphics 
Library Disk #3 ...$15 
CBS 
AlgebraSeries .....Call 
Dinosaur Dig...... .$24 
Or. Seuss Puzzler ... 
Felony ............ 
Mastering the SAT .. 
Math Series 
Murder by Dozen 
Stockpak Il. 
DAVIDSON 
Algeblaster........ 
Math Blaster 
Speed Readerll..... 
Spelllt..... 
Word Attack 
ELECTRONIC ARTS 
Adventure Const Set $: 
Archon2 .... 
Bard’s Tale 
Carriers at War .. 
Europe A Blaze 
Moebius 
Movie Maker .. 
One-on-One . 
Pinball Const Set ...$23 
Reach for Stars .... .$29 
Seven Cities of Gold .$25 


$15 


2 


3: 
.... $25 
... $29 


$32 
.. $32 
.. . $30 
$26 
... $25 


Hitchhiker's Guide to 
the Galaxy 


Planetfall . 

Sorcerer.... 
Spelibreaker 
Wishbringer 


Muppet Learning Keys 
(le & IIc) $ 
LEARNING COMPANY 
Addition Magician ..$21 
Gertrudes Secrets .. 
Juggles Rainbow ... 
Number Stumper ... 
Reader Rabbit . . 
Robot Odyssey 1 
Word Spinner .. 
MICROLEAGUE 


MICROPROSE 
Silent Service: The Sub- 
marine Simulation $23 
F-15 Strike Eagle... .$21 
MINOSCAPE 
Bank St. Story Book . $25 
Color Me: Computer 
Coloring Kit 
Crossword Magic .. .$33 
Forbidden Castle .. .$25 
Halley Project: A Mission 
in Our Solar System $29 
James Bond: A View 


Mr. Pixel’s Cartoon Kit$19 
Perfect Score SAT . .$44 
Racter 

Stephen King's 


MONOGRAM 

Dollars & Sense (128K) $69 
OMNITREND 
Universe ...... 
PRACTICORP 
Practicalc2 .. .$29 


...Call 


9 RANDOM HOUSE 


Charlie Brown's 
ABC's. 

Peanuts Maze 
Marathon ........$24 

Snoopy’s Reading 


$24 


SCARBOROUGH 

Boston Computer Diet$49 

Build A Book... 

Masterytype 

Net Worth 

SIERRA ON LINE 

Homeword w/Speller $59 

King’s Quest 2 

Winnie the Pooh... .$19 

SIMON & SCHUSTER 

ChemLab . -$25 

NY Times X-Word 
Puzzles Vol. 1012 .$14 

Typing Tutor3. . $30 

SPINNAKER 


Facemaker.........$15 


39 Kampfgruppe . 


S.D. of A ; 
o> 


Open Saturday 


t Homework Helper . .Call 
Kids on Keys .. .$15 
Kindercomp.. . 
Math Busters 
SPRINGBOARD 
Early Games 
Easy as ABC 
Mask Parade 
Newsroom 
Newsroom Clip Ar’ 

Template ... 
Stickers .... 
ssi 
Baltic 1985 
Battalion Commander $24 
Breakthrough in the 

Ardennes 
Broadsides ...... 
Computer Ambus' 
Computer QB 
Gemstone Warrior ..$ 
Germany 1985 


Mech Brigade . 
Norway 1985 ....... 
Operation Market 


Phantasie .. 
Pro Tour Golf 
Questron 
Reftorger 88 
Ringside Seat 

Six-G 

US.AA 

War In Russia 
SUBLOGIC 

Flight Simulator2... 
TELARIUM 


Fahrenheit 451 ... 
Perry Mason: Case of the 
Mandarin Murder .$24 
Rendezvous wiRama $24 
TIMEWORKS 
Evelyn Wood 
Dynamic Reader . $42 
Sylvia Porter's Personal 
Financial Planner .$59 
WEEKLY READER 
Sticky Bear ABC ... .$23 
Sticky Bear Math... .$23 
Sticky Bear Numbers $23 
Sticky Bear Opposites$23 
Sticky Bear Reading .$23 
Sticky BearShapes .$23 
WINOHAM CLASSICS 
Alice in Wonderland .$17 
Below the Root 
Swiss Family 
Robinson 
Wizard of Oz 
ACCESSORIES 
Anchor VM 12 
Apricorn 2C Pr. int. . .$49 
Bonus SS, DD . .$8.99Bx 
Bulk Disks .. .Great Deal 
Compuserve Starter 
kit(Ghrs.)........ $19 
Disk Case (Holds 50). .$9 
Disk Drive Cleaner ...$6 
Dow Jones News 
Retrieval Kit (5 ors.) $16 
EPD Surge 
Protectors. 
Kraft 2e, 2c Analog 
Joystick ...... $23 
Sakata 13° Color 
Monitor ... $449 
Total 300 Baud AA/AD 
Modem wi/Software 


P.O. BOX 278— DEPT. NAP—WILDWOOD, PA 15091 


“Ordering and Terms: Orders with cashier check or money order shipped im- 
mediately. Personal/company checks, allow 3 weeks clearance. No C.0.D '$ 
Shipping: Continental U.S.A.—Orders under $100 add $3: free shipping on 
orders over $100. PA residents add 6% sales tax. AK, HI, FPO-APO—add $5 on 


all orders. Sorry—no International orders 


Detective merchandise will be 


replaced with same merchandise. Other returns subject to a 15% restocking 
charge—NO CREDITS! Return must have authorization number (442) 361-5291 
Prices subject to change without notice 
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The Visible Computer. 
The machine language 
teacher that gets 
good grades. 


Users and experts alike are giving The Visible 
Computer straight A’s for making machine lan- 
guage understandable. 

InCider magazine: “TVC is excellent”. Learn- 
ing Computing: “Best Educational Software of 
1983.” Peelings magazine: “AA rating. ..The 
explanations are truly excellent, being that rare 
combination: correct and intelligible.” Basic 
Programmer, Rockford, Illinois: “Wow!”. 

With The Visible Computer's graphic 6502 
simulator, thirty sample programs, and 160 
page tutorial-style manual, you'll find that the 
only mystery about machine language is why 
no one ever taught it this way before. 

Special Offer: For a limited time, get a free 
copy of the Assyst Editor/Assembler with the 
purchase of Visible Computer: 6502 

The Visible Computer: 6502 for Apple II Plus 
and Ile (includes Assyst Editor/Assembler) 
$49.95. From your dealer or direct from 
Software Masters, PO. Box 3638, Bryan, Texas 
77805. (409) 822-9490. 


The Visible 
Computer lets 
you see into 
a 6502 as it 
executes 
programs. 


Software 
Masters” 
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LISTING 1: TANK.COMBAT (continued) 


578 IF LEFT$ (A$(CX(I),CY(I)),1) = "M" THEN 
A$(CX(I),CY(I)) = "": PRINT "COMPUTER SH 
OT NUMBER "I" DESTROYED A MINE.";: GOSUB 
3588: GOTO 629 
588 IF RIGHT$ (A$(CX(I),CY(I)),1) = "H" THEN 
XDRAW 31 AT CY(I) * 14,¥Y + (CX(I) * 9): 
PRINT "COMPUTER SHOT NUMBER "I" DESTROY 
ED A TANK." CHR$ (7);:NU = VAL (A$(CX(I 
),CY(I))):TX(NU) = @:TY(NU) = @ 
598 IF RIGHT$ (A$(CX(I),CY(I)),1) = "H" THEN 
GOSUB 3588:XH( VAL (A$(CX(I),CY(I)))) = 
@:YH( VAL (A$(CX(1) ,CY(I)))) = B:A$(CX(I 
),CY(I)) = "": GOTO 628 
608 IF RIGHT$ (A$(CX(I),CY(I)),1) = "C" THEN 
XDRAW 36 AT CY(I) * 14,Y + (CX(I) «* 9): 
XC( VAL (A$(CX(I),CY(I)))) = @:YC( VAL ( 
A$(CX(I),CY(I)))) = @: PRINT “THE COMPUT 
ER SHOT ITS OWN TANK!" CHR$ (7) :A$(CX(I) 
,CY(I)) = "": GOSUB 3588: GOTO 629 
618 PRINT "COMPUTER SHOT NUMBER "I" MISSED." 
GOSUB 3589 
628 FOR D = 1 TO 3008: NEXT : GOSUB 1548: NEXT 
638 HOME :A = 31:B = 36 
648 FOR K = 1 7T0 6 
658 IF TX(K) = @ THEN 678 
669 GOSUB 1138: REM CHECK FOR TANK TO TANK 
COMBAT 
678 TX(K) = O:TY(K) = O: NEXT K 
688 GOSUB 1548: REM CHECK FOR A WINNER 
698 REM COMPUTER MOVE 
7@@ HOME :M$ = "COMPUTER PLACING ITS SHOTS." 
GOSUB 3659 
718 MV = @:FL = @:HQ = B:SC 
726 FOR I = 1 TO 16: FOR J 
730 IF A$(I,J) "AD" THEN 
748 IF A$(I,J) "FD" THEN 
758 IF A$(I,J) "HQ" THEN 
768 IF RIGHT$ (A$(I,J),1) = "C" THEN MV = M 
V+ 1: IF SC < > 6 THEN SC sc +1 
778 NEXT J,1: IF FL = 1 THEN MV MV * 2:FL = 
V4) 
788 IF NOT HQ THEN SC = 
C = @ THEN SC = 1 
798 REM PICK COMPUTER SHOTS 
808 S = B 
818 FORK =6T01 STEP - 1 
820 IF XH(K) > @ THEN I = XH(K):J = YH(K):S = 
S + 1: GOSUB 1668: IF S = SC THEN K = 1 
838 NEXT 
848 IF S < SC THEN 819 
858 IF TU THEN TU = @: RETURN 
86@ HOME :M$ = "COMPUTER'S TURN TO MOVE TANK 
S.": GOSUB 3658 
878 NU = 4: GOSUB 3538: IF N / 2 = _ INT (N / 
2) THEN W = 1: FOR K = 61701 STEP - 1: 
TX = B:TY = B: GOTO 898 
888 FOR K = 1 TO 6:TX = @:TY = @ 


9:B$ = "H" 
1 TO 18 

C 
L 


iouou 
rPRroAOW 


xInwi i 
oO 


INT (SC / 2): IF S 


1960:MV = MV - S 
990 IF WAND MV < = @ THEN K = 1 
919 IF NOT W AND MV < = @ THEN K = 6 
920 REM 
930 NEXT K:W = @ 
948 GOSUB 1548: REM CHECK FOR WINNER 
958 HOME : FOR I = 1 TO HS 
966 IF A$(HX(I),HY(I)) = "" THEN PRINT “HUM 
AN'S SHOT NUMBER "I" MISSED.": GOSUB 361 
@: GOTO 1949 
970 IF A$(HX(I),HY(1)) = "B" THEN HCOLOR= 3 
DRAW 26 AT HY(I) * 14,Y + (HX(I) * 9): 
A$(HX(I),HY(I)) = "": PRINT "HUMAN'S SHO 
T NUMBER "I" DESTROYED A": PRINT "BARRIE 
R.": GOSUB 3618: GOTO 1949 
986 IF LEFT$ (A$(HX(I),HY(I)),1) = "M" THEN 
GOSUB 3538: IF N / 2 = INT (N / 2) THEN 
PRINT "HUMAN'S SHOT NUMBER "I" MISSED." 
: GOSUB 3618: GOTO 1949 
999 IF LEFT$ (A$(HX(1),HY(I)),1) = "M" THEN 
A$(HX(I) ,HY(I)) = "": PRINT "HUMAN'S SHO 
T NUMBER "I" DESTROYED A MINE.": GOSUB 3 
619: GOTO 1949 


898 IF XC(K) > @ THEN I = XC(K):J = YC(K): GOSUB 


Ce ene ee es eee 


ay 


1888 


1918 


18208 


1838 
1048 


1858 
1968 
1078 
1988 
1998 


1188 
1118 
1128 
1138 


1148 
1158 
1168 
1178 
1188 


1198 
1288 
1218 
1228 
1230 
1248 


1258 
1268 
1278 
1288 
1298 
1388 


13108 
1328 
13398 
1348 
1358 
1368 


137 
1388 
1398 
1488 
1418 
1428 
1438 


1448 


1458 


1468 
1478 


1488 
1498 


IF RIGHT$ (A$(HX(I),HY(I)),1) = "C" THEN 
XDRAW 36 AT HY(I) * 14,Y + (HX(I) * 9): 
PRINT "HUMAN'S SHOT NUMBER "I" DESTROYE 
D A TANK." CHR$ (7):NU = VAL (A$(HX(I), 
HY(I))):TX(NU) = @:TY(NU) = @ 

IF RIGHT$ (A$(HX(I) ,HY(I)),1) 
GOSUB 3618:XC(NU) = @:YC(NU) = 
1) ,HY(I)) = "": GOTO 1949 

IF RIGHTS (A$(HX(I),HY(I)),1) = 
XDRAW 31 AT HY(I) « 14,Y + (HX(I) « 9): 
XH( VAL (A$(HX(I),HY(1)))) = @:YH( VAL ( 
A$(HX(I) ,HY(I)))) = @: PRINT "THE HUMAN 
SHOT ITS OWN TANK!" CHR$ (7) :A$(HX(I) ,HY 
(1)) = "": GOSUB 3618: GOTO 1949 
PRINT "HUMAN'S SHOT NUMBER "I" 
: GOSUB 3619 

GOSUB 3648:HX(I) = 
548: NEXT 

HOME 

FOR K = 1 TO 6 

IF TX(K) = @ THEN 1198 
A = 36:B = 31 


"C" THEN 


@: A$ (HX( 


"H" THEN 


MISSED." 


@:HY(I) = @: GOSUB 1 


GOSUB 1130: REM CHECK FOR TANK TO TANK 
COMBAT 
TX(K) = @:TY(K) = @: NEXT K 
GOSUB 1548: REM CHECK FOR A WINNER 
HOME : GOTO 159 
REM ROUTINE TO CHECK FOR TANK TO TANK 
COMBAT 
D=1 
ON D GOSUB 1188,1248,1300, 1368 
D=D+ 1: IF D = 5 THEN D = 1: RETURN 
GOTO 1158 
R = TX(K) - 1:C = TY(K): IF R= < 1 THEN 
RETURN 
IF RIGHT$ (A$(R,C),1) = B$ THEN 1219 
RETURN 
GOSUB 1428 
IF NOT FL THEN RETURN 
FL = @:D = 4: RETURN 
R = TX(K) + 1:C = TY(K): IF R > 16 THEN 
RETURN 
IF RIGHT$ (A$(R,C),1) = B$ THEN 1279 
RETURN 
GOSUB 1426 
IF NOT FL THEN RETURN 
FL = @:D = 4: RETURN 
R = TX(K):C = TY(K) - 1: IF C < 1 THEN RETURN 
IF RIGHT$ (A$(R,C),1) = B$ THEN 1339 
RETURN 
GOSUB 1426 
IF NOT FL THEN RETURN 
FL = @:D = 4: RETURN 
R = TX(K):C = TY(K) + 1: IF C > 18 THEN 
RETURN 
IF RIGHTS (A$(R,C),1) = B$ THEN 1399 
RETURN 
GOSUB 1426 
IF NOT FL THEN RETURN 
FL = @:D = 4: RETURN 
REM COMBAT 
FOR I = 1 TO 5: PRINT CHR$ (7): NEXT : 
HOME : HTAB 17: FLASH : PRINT "COMBAT": 
NORMAL : FOR I = 1 TO 3000: NEXT 
FOR I = 1 TO 18: XDRAW A AT TY(K) « 14, 
Y + (TX(K) * 9): XDRAW B ATC « 14,Y + ( 
R » 9): FOR J = 1 TO 5@: NEXT : NEXT 
IF K = VAL ( LEFT$ (A$(R,C),1)) THEN XDRAW 
A AT TY(i®) « 14,Y + (TX(K) * 9): XDRAW B 
AT C « 14,Y + (R * 9):FL = 1: HOME : PRINT 
"BOTH TANKS DESTROYED.":A$(R,C) = "":A$( 


TX(K) ,TY(K)) = "":XC(K) = @:YC(K) = 
(K) = @:YH(K) = @: GOTO 1538 


@:XH 


IF BS = "C" THEN 1498 

IF K < 
36 AT TY(K) * 14,Y + (TX(K) * 9):A$(TX(K 
),TY(K)) = "":XC(K) = @:YC(K) = @: HOME 

: PRINT "COMPUTER TANK DESTROYED!": GOTO 
1538 

GOTO 1528 

IF K > VAL ( LEFT$ (A$(R,C),1)) THEN XDRAW 


36 AT C « 14,Y + (R * 9):XC( VAL (A$(R,C 
))) = B:YC( VAL (A$(R,C))) = B:A$(R,C) = 
""> HOME PRINT "COMPUTER TANK DESTROYE 


DI": GOTO 1539 continued on page 65 
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Apple Il/ile 


nce Upon A 
Time Only Advanced 
Programmers Could 
Achieve Machine 
Language Speed. 


But today anyone 
with just a basic 
knowledge of pro- 
gramming, can write 
programs that run at 
machine language 
speed. It’s easy with 
MACROSOFT, a 
new language that 
works with the 
MicroSPARC 
Assembler. 

Using MACRO- 
SOFT, you write Applesoft-like programs which are con- 
verted into machine language by the MicroSPARC 
Assembler. Like magic. You get the benefits of speed 
and efficiency without the hassle and hard work of 
learning machine language! 

Imagine, running your programs up to 10 times faster 
than compiled Applesoft. That’s up to 50 times faster than 
regular Applesoft! 

Create lightning-fast games and spectacular graphics. 
Ideal for number crunching! For the more advanced 
programmer there’s the convenience of mixing assembly 
language and MACROSOFT in the same program. 

Now you don’t have to be a magician to move up to 
machine language—with MACROSOFT! 


To order fill out the attached coupon or call (617) 371-1660. 
Author: Alan D. Floeter 


System Requirements: Applesoft compatibility and DOS 3.3 
Apple is a registered trademark of Apple Computer, Inc. 


Copyright © 1983 by MicroSPARC. " 
MicroSPARC Inc. 


1 

1 

| want machine language speed! Here’s my $99.95 ! 
for MACROSOFT and the MicroSPARC Assembler. ! 
Specify: DOS 3.3 version [J ProDOS version : 
Payable in U.S. funds only. ; 
MasterCard ]Visa Check, M.O. H 
(Mass. residents add 5% sales tax) POSTPAID t 
1 

' 

Name Tel. # ; 
1 

Address : 
City State Zip ; 
1 

Signature 4 Date ; 
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Charge Card # Exp. Date 4 
1 

MicroSPARC Inc., 45 Winthrop St., Concord, MA 01742 (617) 371-1660 § 
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Raise your Apple’s IQ 
Twelve Times A Year! 


A one-year subscription 
to NIBBLE brings you 
twelve issues packed with 
programs and 
comprehensive articles to 
help you get the best out 
of your Apple. 

You'll get over $500 
worth of programs for 
Home, Business, Education 
and Entertainment with 
complete instructions. 
Nibble articles show what 
each program does, how to 
use it and enter it into your 
Apple, Franklin ACE or 
other Applesoft-compatible 
computer. 

You'll enjoy regular 
features for the beginner as 
well as the expert. Among 


©1983 by MicroSPARC Inc. All Rights Reserved. 


these are the Educational 
Corner, where programs 
help make learning fun, 
Tips & Techniques which 
showcases little-known 
programming tricks, 
Utilities to facilitate Basic, 
DOS & Printing, and 
Games with arcade fun 
you Can type and run. 


Here’s what some of our Readers say: 
O “Certainly the best magazine on 


the Apple!” 
0 “Programs remarkably easy to enter.” 


O “Your service is fantastic... as a matter 


of fact, I’m amazed!” 


Apple® is a registered trademark of Apple Computer, Inc 
ACE* is a registered trademark of Franklin Computer, Inc. 


Note 

O Canada surface subscription rate is $34.95 

O Outside the U.S. and Canada surface subscription rate is $39.95 
OD Domestic U.S. First Class subscription rate is $51.95 

O Canada Air Mail subscription rate is $59.95 

O Outside the U.S. and Canada Air Mail subscription rate is $89.95 
Ali payments must be in U.S. funds drawn ona U.S. bank. 


aver Price! 


Join the more than 
120,000 Apple/ACE 
users who say: 


“NIBBLE is terrific!” 


eo = 


We accept Master Charge & Visa 

45 Winthrop, St., Concord, MA 01742 
I'll try nibble! 
Enclosed is my: 0 $26.95 (for 12 issues — U.S. Only) 
D $49.95 (for 24 issues — U.S. Only) 

0 $69.95 (for 36 issues — U.S. Only) 
(Outside U.S. see special note on this page) 
check money order ( bill me (U.S. only) 
Your subscription will begin with the next issue published after 
receipt of your check/money order. 


| use the following computers: 
DApple // Family 


C)Macintosh 
Card # Expires 


PLEASE PRINT CLEARLY 


Signature 


Name 
Address 
City 

State 


LISTING 1: TANK.COMBAT (continued) 


1588 XDRAW 31 AT TY(K) * 14,Y + (TX(K) * 9): 
FL = 1: HOME : PRINT “HUMAN'S TANK DESTR 
OYED!":XH( VAL (A$(TX(K) ,TY(K)))) = @:YH 
( VAL (A$(TX(K) ,TY(K)))) = B:A$(TX(K) , TY 
(K)) = *" 
1518 GOTO 1538 
1528 XDRAW 31 AT C « 14,Y¥ + (R * 9):FL = 1: HOME 
: PRINT "HUMAN'S TANK DESTROYED." :XH( VAL 
(A$(R,C))) = @:YH( VAL (A$(R,C))) = B:A$ 
(R,C) = "" 
1538 FOR I = 1 TO 4800: NEXT : 
1548 REM LOOK FOR A WINNER 
1558 H = O@:C = B 
1568 FOR WI = 1 TO 6 
1576 IF XC(WI) > @ THEN C 
1588 IF XH(WI) > @ THEN H 
1598 NEXT 
1688 IF H = @ AND C = @ THEN FOR I = 1 TO 5 
PRINT CHR$ (7): NEXT : PRINT "THIS MA 
TCH HAS ENDED IN A TIE. WOULD YOULIKE TO 
TRY AGAIN ?";: GOTO 1648 
1618 IF H = @ THEN FOR I = 1 TO 5: PRINT CHR$ 
(7): NEXT : HOME : PRINT "SORRY HUMAN, I 
WON THIS ROUND. WOULD YOULIKE TO TRY AG 
AIN?";: GOTO 1648 
1628 IF C = @ THEN FOR I = 1 TO 5: PRINT CHR$ 
(7): NEXT : HOME : PRINT "CONGRATULATION 
S$, YOU WON THIS ROUND. WOULD YOU LIKE 
TO TRY AGAIN?";: GOTO 1648 
1638 RETURN : REM STILL TANKS LEFT 
1646 INPUT "";A$: IF LEFT$ (A$,1) = "“N" THEN 
TEXT : HOME : END 
1658 CLEAR : GOTO 1268 
1668 REM SELECT COMPUTER SHOT LOCATION 
1678 NU = 18: GOSUB 3538 
1688 IF N / 2 = INT (N / 2) THEN D = 4: GOTO 
1718 
1698 IF N= 1 OR N = 3 OR N = 9 THEN NU = 2: 
GOSUB 3538:D = 1 + N: GOTO 1719 
1706 IF N= 5 OR N = 7 OR N = 18 THEN D = 1 
1718 NU = 3: GOSUB 3538: IF N = 3 THEN NU = 2 
: GOSUB 3538: ON D GOSUB 1868,1919,1919, 
1868: IF DI THEN DI = @:NU = 2: GOTO 173 


RETURN 


C+i 
H+ 1 


@ 

1728 NU = 3 

1738 GOSUB 3538: ON D GOTO 1748,1778,1888,18 
36 


1740 IF I +N > 16 THEN 1679 

1758 IF RIGHT$ (A$(I + .N,J),1) < > "1" AND 
RIGHT$ (A$(I + N,J),1) < > “C" THEN CX 
(S) = I + N:CY(S) = J: RETURN 

1768 GOTO 1676 . 

1778 IF J - N < 1 THEN 1678 

1788 IF RIGHTS (A$(I,J - N),1) < > “1" AND 
RIGHT$ (A$(I,J - N),1) < > "C" THEN CX 
(S) = 1:CY(S) = J - N: RETURN 

1798 GOTO 1678 

1888 IF J + N > 18 THEN 1670 

1818 IF RIGHTS (A$(I,J +.N),1) < > "1" AND 
RIGHTS (A$(I,J +.N),1) < > "C" THEN CX 
(S) = I:CY(S) = J + N: RETURN 

1828 GOTO 1676 

1838 IF I - N < 1 THEN 1678 

1848 IF RIGHTS (AS(I - N,J),1) < > "1" AND 
RIGHTS (AS(I - N,J),1) < > "C” THEN CX 
(S) = I - N:CY(S) = J: RETURN 

1858 GOTO 1678 


1868 IF N = 1 THEN 1898 

1878 IF J 1 < 1 THEN RETURN 

1888 = J - 1:DI = 1: RETURN 

1898 IF J + 1 > 18 THEN RETURN eee 
1988 = J + 1:DI = 1: RETURN 

1919 IF N = 1 THEN 1948 

1928 IF I - 1 < 1 THEN RETURN 

1932 = I - 1:DI = 1: RETURN 

1949 IF I+ 1 > 16 THEN RETURN 

1958 = I + 1:DI = 1: RETURN 


1968 REM MOVE COMPUTER TANK 

1978 TX = I:TY = J:FL = @:TI = 8:S = @ 

1988 FOR D = 1 TO 16 

1998 IF RIGHT$ (A$(D,J),1) = “H" OR A$(D,J) 
= "HQ2" OR A$(D,J) = "AD2" OR A$(D,J) = 
"FD2" THEN FL = D 

2808 NEXT D: IF FL < > @ THEN GOTO 24089 

FOR D = 1 TO 18 


IF RIGHT$ (A$(I,D),1) = "H" OR A$(1,D) 


2838 
2848 


2858 
2868 


28708 
2888 
2698 


2188 


2118 
2128 
2138 
2148 


2158 
2168 
2178 
2188 
2198 
2288 
2218 


2228 
2238 
2248 
2258 
22608 
22708 
2288 


2298 
2300 
2318 
23268 
23308 
2348 
2358 


2368 
23708 
2388 
2398 
2408 
24198 
2428 
2438 
24498 
2459 
24668 
24708 


2486 
2498 


2588 
2518 
2529 
2538 
25408 
2558 
2568 
2578 
2588 
2598 
2608 
26198 
2629 
2639 
2648 
2658 
26608 
2676 


= “HQ2" OR A$(1,D) 
"FD2" THEN FL = D 
NEXT D: IF FL < > @ THEN GOTO 2428 
NU = 4: GOSUB 3530:TI = TI + 1: IF TI > 
1@ THEN RETURN 
FL = 8: ON N GOTO 2128,2198, 2268, 2338 

IF A$(TR,TC) = "HQ2" THEN XDRAW 32 AT 
TC « 14,Y + (TR » 9):A$(TR,TC) = “" 

IF A$(TR,TC) = "AD2" THEN XDRAW 33 AT 
TC x 14,Y + (TR * 9):A$(TR,TC) = "" 

IF A$(TR,TC) = "FD2" THEN XDRAW 34 AT 
TC « 14,Y + (TR » 9):A$(TR,TC) = “" 


= "AD2" OR A$(I,D) = 


IF A$(TR,TC) = "" THEN XDRAW 36 AT TY x 
14,Y¥ + (TX « 9):A$(TR,TC) = A$(I,J5):XC(K 
) = TR:YC(K) = TC:A$(I,J) = "": XDRAW 36 


AT TC * 14,Y + (TR * 9):TX(K) = TR: TY(K 
) = TC: GOTO 2446 

IF A$(TR,TC) = "MI2" THEN XDRAW 36 AT 
TY « 14,Y + (TX * 9): FOR D = 1 TO 58: XDRAW 
35 AT TC « 14,¥ + (TR « 9): NEXT :A$(TR, 
TC) = "":XC(K) = @:YC(K) = O:A$(TX,TY) = 
"" HOME PRINT CHR$ (7)"TANK HIT MINE 

AND WAS DESTROYED!": GOSUB 3648:S = N: RETURN 


RETURN 

REM MOVE UP 

IF I = 1 THEN 2948 
NU = 3: GOSUB 3538: IF I - N < 1 THEN 22 
42 

IF MV < = @ THEN RETURN 

IF MV - N < @ THEN 2146 
TR=I1-N:TC = J:D=1 

GOTO 2868 

REM MOVE DOWN 

IF I = 16 THEN 2949 
NU = 3: GOSUB 3538: IF I + N > 16 THEN 2 
B49 

IF MV < = @ THEN RETURN 

IF MV - N < ® THEN 2210 
TR = I + N:TC = J:D = 2 

GOTO 20628 

REM MOVE LEFT 

IF J = 1 THEN 28049 
NU = 3: GOSUB 3538: IF J - N < 1 THEN 20 
49 

IF MV < = @ THEN RETURN 

IF MV - N < @ THEN 2280 
TR = 1:TC = J - N:D = 3 

GOTO 20698 

REM MOVE RIGHT 

IF J = 18 THEN 29498 
NU = 3: GOSUB 3530: IF J + N > 18 THEN 2 
G49 

IF MV < = @ THEN RETURN 

IF MV - N < @ THEN 2359 
TR = 1:TC = J+N:D = 4 


GOTO 2968 
IF FL < I THEN N = 1:D = 1: GOTO 2958 
N = 2:D = 2: GOTO 2959 rR 


‘il 


IF FL < J THEN N = 3:D 
N = 4:D = 4: GOTO 2052 
S = N: IF N < 3 AND MV - S > @ THEN 2468 

RETURN 
NU = 2: GOSUB 3538 
I = TX(K):J = TY(K):TX = 1:TY = J:XC = I 
(YC = J 

IF D < = 2 THEN ON N GOSUB 2682, 2659: 

RETURN 

IF D > 2 THEN ON N GOSUB 2508,2559: RETURN 


3: GOTO 2858 


IF I = 1 THEN RETURN 
GOSUB 2778: IF N = @ THEN RETURN 
IF MV - (S +N) < @ THEN RETURN 
IF I - N < 1 THEN RETURN 
TR = I - N:TC = J: GOTO 2708 
IF I = 16 THEN RETURN 
GOSUB 2778: IF N = @ THEN RETURN 
IF MV - (S +N) < @ THEN RETURN 
IF I + N > 16 THEN RETURN 
TR = I + N:TC = J: GOTO 2788 
IF J = 1 THEN RETURN 
GOSUB 2778: IF N = @ THEN RETURN 
IF MV - (S +N) < @ THEN RETURN 
IF J - N < 1 THEN RETURN 
TR = I1:TC = J - N: GOTO 2788 
IF J = 18 THEN RETURN 
GOSUB 2778: IF N = @ THEN RETURN 
IF MV - (S + N) < @ THEN RETURN 


continued on page 67 
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Unlock the ‘Mysteries of your Apple... 
with 


Over’80 of the best Apple Tips and Techniques from Nibble Magazine collected in one 

_ soft-caver book! Apple Secrets is packed with programs and information, most of if out 

of print and unavailable anywhere ‘else. Nibble’s Apple experts teach you their tricks 

for speeding up Applesoft, controlling DOS, creating spectacular graphics, and program- 

ming faster and better. And you can get all. of the programs from Apple Secrets on disk! 

oooodn00ooDDooooooooooooDooooCooODDoooOoOOoODoDDOoDOOoOoDoOOoCoOot soogo0000000 

= Ci MasterCard O Visa Ci Check, M.O. 
es! Send me Apple Secrets! Please send me: 


Apple Sec rets Bx 1 k—$ | 9.95 
Apple Secrets Book and Disk—$29.95 


oOooooogon! 


oO 


Please add $1.75 shipping per copy. For shipment 


100 


outside the U.S., So add $2.75 for surface mail 


rm 
L 


or $6.50 for air mail. (Mass. residents add 5% sales  Sgaume 


tax) Payable in U.S. funds only 


Oooo0o0o0o0oo0o000000coe000 


Charge Card # i eee eal Exp. Date 


nibble 45 Winthrop St., Concord, MA 01742 (617) 371-1660 
OOOODOODOOOOOODOOOOOOO0OO0D00D00OO0DD0D0D000D00D0000000000D0000000000000000 
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2680 
2698 
2708 
2718 
2728 
2730 


2748 


2758 


2768 
2778 
2780 
2798 


2800 


2819 
2829 


2839 
2840 


2858 
2868 
2878 
2880 
2898 
29088 
2918 


2920 


2930 
29498 
2958 
29608 
29708 


2988 
29998 
3000 
30198 
38208 


3930 


3840 
3050 
3069 
3079 
3089 
3098 


3188 
3119 
3128 
31308 
3149 
3158 


3160 
3170 
3189 
3198 


32808 
32108 


a | 
LISTING 1: TANK.COMBAT (continued) . 


IF J + N > 18 THEN RETURN 
TR ‘TC =J+N 
FL 

IF A$(TR,TC) = "HQ2" THEN XDRAW 32 AT 
TC » 14,Y + (TR « 9):A$(TR,TC) = "" 

IF A$(TR,TC) = "AD2" THEN XDRAW 33 AT 
TC » 14,Y + (TR « 9):A$(TR,TC) = "" 

IF A$(TR,TC) = "FD2" THEN XDRAW 34 AT 
TC » 14,Y + (TR = 9):A$(TR,TC) = "" 

IF A$(TR,TC) = "" THEN XDRAW 36 AT TY = 
14,Y + (TX « 9):A$(TR,TC) = A$(I,J) :A$(I 


J) = "": XDRAW 36 AT TC « 14,Y + (TR « 
9):TX(K) = TR: TY(K) = TC:XC(K) = TR: YC(K 
) = TC:S = S + N: RETURN 


IF A$(TR,TC) = "MI2" THEN XDRAW 36 AT 

TY « 14,Y + (TX « 9): FOR D = 1 TO 38: XDRAW 
35 AT TC » 14,Y + (TR « 9): NEXT :A$(TR, 

TC) = "":A$(TX,TY) = "":XC(K) = @:YC(K) = 


@: HOME PRINT CHR$ (7)"TANK HIT MINE 
AND WAS DESTROYED!": GOSUB 3649:S = S + 
N: RETURN 

RETURN 


NU = 3 - S: GOSUB 3538: RETURN 
REM DRAW GRID 


HGR : HCOLOR= 3: HPLOT @,@: CALL - 398 
2 

HCOLOR= 9: FOR I = 8 TO 161 STEP 9: HPLOT 
@,1 TO 279,1: NEXT 

J=l 

FOR I = 13 TO 265 STEP 14: HPLOT I,8 TO 
I, 161 


IF J = 19 THEN 2859 


DRAW J AT I + 4,7: DRAW J AT I + 4,159: 


J=J+i1 
NEXT 
Js 1 


FOR I = 16 TO 159 STEP 9 

A$ = STR$ (J) 

IF LEN (A$) < 2 THEN A$ = " " + AS 

IF LEFT$ (A$,1) = " " THEN 2928 

DRAW (¢ VAL ( LEFT$ (A$,1))) + 28 AT 1,1 
DRAW ( VAL ( LEFT$ (A$,1))) + 28 AT 26 


a1 
S = ‘VAL ( RIGHTS (A$,1)):S = S + 20: IF 
S = 28 THEN S$ = 38 

DRAW S AT 6,1: DRAW S AT 273,1 
J = J + 1: NEXT 
¥ = 7:J = 1: HCOLOR= i 

FOR I = 1 TO 8: FOR K = 1 TO 18 
NU = 18: GOSUB 3538: IF N = 2 THEN A$(I 
K) = "B": DRAW 2@ AT K « 14,Y + (I * 9): 
J=J+1 

IF. J = 15 THEN K = 18:1 = 8 

NEXT K,I 

IF J < 15 THEN 2968 
J=l 

FOR I = 16 TO 19 STEP - 1: FOR K = 1 TO 
18 

GOSUB 3538: IF N = 2 THEN A$(I,K) = "B" 


DRAW 28 AT K « 14,Y + (I * 9):J = J + 


IF J = 15 THEN K = 18:1 = 18 

NEXT K, I 

IF J < 15 THEN 3029 

REM COMPUTER LOCATIONS 

FOR I = 1 TO 8: FOR J = 1 TO 18 

GOSUB 3538: IF N = 3 AND AS(I,J) = "" THEN 
A$(I,J) = "HQ": XDRAW 32 AT J = 14,Y + ( 

I « 9):I = 8:J = 18:FL =1 


NEXT J,I 

IF NOT FL THEN 38898 

FL = @ 

FOR I = 1 TO 8: FOR J = 1 TO 18 

GOSUB 3539 

IF N = 3 AND A$(I,J) = "" THEN A$(I,J) = 


"AD": XDRAW 33 AT J « 14,Y + (I * 9):IT = 
8:J = 18:FL = 1 


NEXT J,I:: IF NOT FL THEN 3138 

FL = @ 

FOR I = 1 TO 8: FOR J = 1 TO 18 

GOSUB 3538: IF N = 3 AND A$(I,J) = "" THEN 


A$(I,J) = "FD": XDRAW 34 AT J = 14,Y + (¢ 

I * 9):I = 8:J = 18:FL = 1 

NEXT J,1I: IF NOT FL THEN 3188 

FL = @ 

continued on next page 


What Is The 
Most Popular 
Printer 
Interface 


For Apple 
Computers 


(Turn page for the answer.) 


™ 
PeDOs ORCA/M 
ProDOS Assembler 
In The World seesscescceccccccccssesccccccecesccsncccessscsces 
Who says so? ORCA/M AAA 
Among others, Peelings // Merlin A+ 
magazine! When they did a S-C Macro Assembler At 
comparative study of Apple // The Assembler (Micro Sparc) A 
assemblers, here’s how they Lisa 2.5 B+ 
rated them: EdASM B 


ORCA/M 4.0 ssescesssssnccssccscccscccccesssassscscaccencse 
is also the only assembler to fully support the new 65816 CPU - earning 
it the endorsement of the Western Design Center, designers of the 
65C02, 65802 and 65816! 


ORCA/M 4.0 is a complete development environment for assembly 
language programming for ProDOS. The system includes the Assembler 
with full macro capa abilities, Link Editor, Command Processor, Full 
Screen Text Editor, Disassembler, many utilities, Macro and Subrou- 
tine Libraries, (2, 4 and 8 byte integer mathematics and full graphics 
libraries, including double hi-res) and 6502, 65C02, 65802 and 65816 


support! $79.95 


Small-C Compiler Boesesecceasscscnsssssssenescscssconsesss 
All full C language statements are supported, along with most operators 
and short and long integers. Supports P-code for space efficiency and 
native code for speed. Complete source code for the compiler is in- 
cluded. (Requires ORCA/M 4.0) $39.95 


Support Programs Sacensesesesesseesesvesssesseseencesessss 


MONG - A powerful Symbolic Debugger with disassembler, mini-assembler, step 
and trace, and much more for debugging assembly language programs. $29.95 


ORCA O/S Source - Includes the source code for the ORCA/M operating 
system, subroutine libraries and XREF (global cross reference) utility. $39.95 


Floating Point Libraries - Supports IEEE single and double precision floating 
point formats. Includes transcendental functions and complete source 


$39. 95 
aye Bute Works inc. New Mexico residents 
8000 Wagon Mound Dr. NW 


add 4.375% 


Albuquerque, NM 87120 ied shi regi 
Ss (505) 898-8183 


SESSESSSUSSSESSESSESSSSISSSSSSTSSTeSS 


os 
ssesssaseces 
CIRCLE NUMBER 27 
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37608 


3778 
37808 
37908 


3800 


3819 


38208 
3830 


3849 
38508 
3868 
3870 
3889 
38908 
3900 
39108 
3920 
39308 
3948 
3958 
3960 
39708 
3989 
3998 
4920 
4919 


4820 


4030 
4040 


4950 
49608 
49708 
4980 
49908 
4198 
41108 
4120 


IF A$(R,C) = 
A$(R,C) = "AD2 
38508 

IF FL THEN FL 


"B" OR A$(R,C) = 
"OR A$(R,C) = " 


= @: GOTO 3768 


IF MT THEN GOTO 3899 


XDRAW SH AT C 


« 14,Y + (R * 9 


TX AND C = TY AND SH > 2@ AND SH < 27 THEN 


XDRAW SH AT C 
POKE 49168,9: 
( PEEK ( - 163 
IF MT THEN I 
"J" AND AS < 
A$ < >  CHRS 
IF MT THEN MT 
XDRAW SH AT C 
> "I" AND A$ 
AS < > "M" AN 
3710 


IF A$ = CHR$ 
IF AS = "I" T 
IF Ag = "J T 
IF AS = "K” T 
IF AS = "M" T 


REM MOVE UP 
IF R = RE THE 
R =R - 1: GOT 
REM MOVE LEF 
IF C = 1 THEN 
C=C - 1: GOT 
REM MOVE RIG 
IF C = 18 THE 
C=C +1: GOT 
REM MOVE DOW 
IF R = RS THE 
R = R + 1: GOT 


* 14,Y +R * 9: 

WAIT - 16384,1 
84) - 128): POKE 
F A$ < > "I" AN 
> "K" AND A$ < 
(32) THEN 3719 

= @: GOTO 3849 

« 14,Y + (R «* 9 
< > "J" AND A$ 
D A$ < > CHR$ 


(32) THEN 40198 
HEN 3999 
HEN 3939 
HEN 3969 
HEN 3999 


N R = RS: GOTO 3 
O 37108 
T 


C = 18: GOTO 37 
O 3719 

HT 

N C = 1: GOTO 37 
O 3719 

N 


N R = RE: GOTO 3 
O 3719 


"HQ2" OR 
FD2" THEN 

Jc IF k= 

MT = 1 

28:A$ = CHR$ 
49168, 

DAS < > 

> "M" AND 

): IF AS < 

< > "K" AND 
(32) THEN 

7108 

18 

18 

7108 


IF SH = 37 OR SH > 2@ AND SH < 27 THEN 


4030 
IF A$(R,C) < 
(7) "THAT SPACE 


XDRAW SH AT C 


IF I = 1 THEN 
FOR J = 1 TO 
IF Ri@ HX(J) 
NEXT J 

IF FL THEN P 
RETURN 

REM PRINT I- 
HOME : PRINT 
"USE I-J-K-M T 
PLACE ";OBS$.;: 


END OF LISTING 1 


> "" THEN HOME 
IS OCCUPIED!": 
« 14,Y + (R «9 
RETURN 

— C = HY(J) TH 

OP :FL = @: GOTO 


J-K-M PROMPT 
"ENTER LOCATION 


O MOVE": PRINT "<SPACE> TO 


RETURN 


PRINT CHRS 
FOR D = 1 TO 
2000: NEXT : GOSUB 4128: GOTO 3719 

IF SH > 2@ AND SH < 27 THEN’ RETURN 


): RETURN 


EN FL = 1 


38598 


OF ";OB$: 


PRINT 


| Grappler | 


Printer Interfaces 


Apple lle with ImageWriter ll 


Serial Grappler+ Color screen dumps and optional 
buffering at an attractive price. 


Apple lle with Parallel Printers 
Grappler + /Buffered Grappler+ The industry 
standard with graphic screen dumps, buffering, text 
formatting and much more. 

Orange Interface \deal economy interface for letter 


quality or heavy text applications. Fifteen text 
commands. 


Apple llc with Parallel Printers 
Grappler C The total interface solution, with built-in 
ImageWriter emulation and graphics screen dump 
utilities. 

Hotlink Low cost serial-to-parallel converter. Works for 
most applications. 


With over 300,000 units sold, the Grappler has been the 
industry's favorite interface solution. Go with the winner. 
Go Grappler! 


co °.. 2 
@Orange Micro 


Inc. 
1400 N. Lakeview Ave., Anaheim, CA 92807 
(714) 779-2772 


CIRCLE NUMBER 26 


KEY PERFECT 5.9 
RUN ON 
TANK . COMBAT 


CODE-5.& LINE# - LINE# CODE -4.0 
3C9E4585 16 - 108 ADD6 
E182930D 118 - 200 A6BA 
13834C6F 210 - 300 83BD 
98963C43 310 - 490 FOIA 
1727D834 418 - 508 @113FB 
16699335 518 - 60D G1A186 
D3D954F@ 618 - 700 7761 
8A19BD64 718 - 809 756A 
9A8B88OF 818 - 998 82A8 
21461CCB 919 - 1980 G12258 
956D3F14 1910 - 1100 C352 
A2C15817 1118 - 1208 4D33 
44490541 1210 - 1300 43D8 
13209842 1318 - 1489 3951 
33F24B56 1418 - 1580 O14F4A 
55173D67 1518 - 1609 8CE3 
34669436 1610 - 1700 ACD4 
E36@AEFC 1718 - 1808 88D1 
1BF5CC71 1818 - 1980 67A6 
D1CFFD9E 1918 - 2809 5E94 
4D166CAB 2018 - 2109 @121AD 
CC34D15C 2118 - 2200 3C16 
E2742FF9 2218 - 2300 4674 
6C8CBE76 2318 - 24089 44EB 


continued on next page 


| Go for the 


SuperMAX™. The MAXimum in Surge 
Suppression, Noise Filtration, Under 
Voltage detection and protection, PLUS 
Telecommunication Line protection. 


e Status Lights 
eReset Switch 


¢ Quality Power Line 
AND Data Line 
Protection 


e Exceeds 


1 EEE 587 PANAMAX 


“Toll Free 1-800-472-5555 
In California 415-472-5547 
150 Mitchell Boulevard, San Rafael, CA 94903 


¢Made in U.S.A. 
eFIVE Year Warranty 
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_— =.) —— oo —C<<—S ee ea 


See eece! 2a. peas aa agac | 2860- 15 F6 3F 4E 31 1E 3F 04 | 9970- 1C 67 21 1C 3F 17 94 90 
BiBgSACD OB ig2 27a 3081 | 9868- 8B 9 2D B5 FB 1B 24 24 | G978- 49 21 O5 38 3F 27 BC BC 
7F6DAFQ8 2718 - 2808 G196B7 | 0870- BC 2D 15 B4 BO 29 2D B5 | B9BH- OC 36 26 BH BB 15 2D 5 
4C7746BE 2810 - 2900 4226 | @878- 20 24 E4 3F 37 36 36 O4 | G988- 28 1C 3F 27 24 2D 2D o4 
8BOA8378 «2910 - «3000 6CB2 | G880- BO 29 2D E5 DB 24 2D E5 | B99B- BH BO 2D O5 2 1C 3F DE 
eee ee 68C0 | G888- 1B 24 2D 2D B4 OB 21 24 | O998- 24 24 BC 2D 15 B4 BO O9 
: @898- 24 2C 2D B5 1A 3F B4 BG | BIAD- 24 BC BC BC 3C 3F 27 BO 

Pecceaen | Gir, age rege | 2898- @9 2D 95 28 3C BF 1A 24 | B9A8- G9 2D B5 28 1C BC E4 3F 
Dseddse: satan, 2ase0 err | P8BAG- 24 BC 2D 25 BO 21 24 24 | BOBO- 17 GE 3A 17 26 OH BB BE 
BDAS8092 «3510. «3608 6236 | S8A8- AC 12 2D G4 49 36 36 36 | B9BB- 2D O5 20 24 E4 3F 17 76 
2@B76DF7 3618 - 3709 7045 | @BBB- G4 BB B9 2D 1C 24 24 B7 | B9CB- 2D G4 BH G9 2D B5 28 24 
4ED49F74 «3710 - 3800 A947 | @8B8- 28 25 BO O1 AB 2D 20 24 | B9CB- E4 3F 17 36 36 2D 20 64 
4B1320DA 3810 - 3990 7180 | @BCO- 3C 28 25 OB 21 24 24 6C | BODB- G4 OO 49 24 24 35 36 GE 
eee soa hans 46F9 | O8C8- G9 1E 1E 1E OE GE GE O4 | B9D8- B9 25 24 3C 36 3E 3F 2C 
é @8D0- BG 29 2D E5 DB 24 24 24 | B9EG- 25 3F BC 24 4 BO B9 Bd 

Geet CEP sia; | Q8D8- BG 21 24 24 AC BE 2E 8B | BIES- 26 24 AC 2A 44 36 36 BD 
; e OBEB- 60 36 36 36 04 OB 21 24 | BOFG- 20 64 AD BG IF OC 94 BB 

— Q8E8- 24 AC 72 BE 56 24 24 24 | GOF8- B9 20 24 BC AD OF 2D 36 


O8FO- 64 BB BI 2D B5 2G 24 E4 | BABB- BD 24 24 2D 15 36 1E 27 
O8F8- 3F 17 36 36 B4 BB 21 24 | BABB- BO BI 2H 24 2C 2D DE 2A 


LISTING 2: TANK.SHAPES O908- 24 2C 2D 15 F6 3F 84 BB | BAIG- 4D 24 2D 15 36 1E 3F 24 
O988- 91 28 24 64 2D 15 36 B6 | BA18- BB 69 B9 4D El DF DF BC 
9883- 25 0B 4C OB 58 G918- O7 EW 16 27 BO 21 24 24 | BA2G- BD BD 1C 3F 2C 2D F8 1F 


Q808- 08 66 BB 72 BO 7E BB 8B | B918- 2C 2D 15 F6 3F BE 15 15 | BA28- B7 68 69 29 F8 1B DF 23 
Q818- 88 95 BB A2 BO AF OO BB | B92GB- G4 BOW 49 2D 2D 28 2H 24 | BA3B- BH 49 49 28 B5 38 27 BD 
9818- 98 Cl OB CE OG D6 OH E3 | B928- B7 38 38 3F 17 17 36 76 | BA38- 3C 3F 36 3E 24 24 6D 99 
G820- 98 EF 08 FB 86 G5 G1 12 | 99308- B5 48 25 27 BB 29 BD 6D | BA4B- 35 36 3E 24 24 BG 24 24 
@828- 91 1F @1 32 O1 54 G1 5C | 9938- 6D ES FB FB FB 63 6D 6D | @A48- 24 2C 2D 2D 2D 2D 2D 35 
@830- 91 68 81 75 O1 81 O1 8E | 9949- 6D E5 FB FB FB 63 6D 6D | BA5Z- 36 36 36 3F 3F 3F 3F 3F 
9838- 81 9C O1 AS O1 B3 G1 CO | G948- 6D ES FB FB FB 63 6D 6D | GA58- 27 24 24 2C 2D 2D 2D 2D 
@846- 91 CF 81 E3 81 FS O1 O6 | B958- 6D ES FB FB FB 23 88 89 | BAGBG- 35 36 36 3F 3F 3F 3F 27 
@848- O92 16 G2 2E B2 43 B2 21 | O958- 2D 1C 24 24 BC G4 BH 29 | BAGB- 24 2C 2D 2D 2D 35 36 3F 
@858- 24 64 BC 15 15 3E 3F 4E | 8960- 2D E5 DB 64 2D @5 28 1C | BA7G- 3F 3F 27 2C 2D 2D 35 3F 
@858- 31 26 BB 21 24 24 2C 2D | O968- 3F 27 BB BB 15 2D B5 2H | BA78- 3F 27 BB 


~ 
END OF LISTING 2  ] 


HAPPY NEW YEAR! 
Or) ee @ SERVICE @ QUALITY @ PRICE — OUR PRIORITIES TO YOU! ce ores aa 
BUSINESS EDUCATION TRIAD } HOBBY /UTILITIES TRIAD | RECREATION TRIAD 


“APPLEWORKS” BY C. RUBIN (BOOK)... $ 13.95 . ALGEBLASTER—DAVIDSON § 30.95 ALPHA PLOT (2+ CE 48K DOS)... $ 21.00 | ADVENTURE CONSTRUCTION SET $ 30.95 
AP/AR/GA/INV/PAY—BPi (DOS)... (EA) 220.00 | ALGEBRA 1/2/3/4—EDUWARE (EA} 23.95 | APPLE MECHANIC (2 + CE 48K DOS) 16.00 | AUTODUEL/EUROPE ABLAZE (EA) 30.95 
AP/AR/GA/INV/PAY—BPI (PRODOS).(EA) 230.00 | CHALLENGE MATH OR FACTORY {EA} 30.00 | BEAGLE BASIC (2 + E 64K 00S) 19.00 | BARD'S TALE 28.95 
BACK TO BASICS ACC’T SYS (C/E) 110.00 | GRAMMAR EXAMINER 26.95 BEAGLE GRAPHICS (CE 128K 3/P) 31.00 CARRIERS AT WAR/WILDERNESS. . (EA) 30.95 
BANK STREET FILER 64K/128K (EA) 40.50 | MASTER TYPE—MASTER TYPE FILER (EA) 23.95 BLAZING PADDLES OR PIXIT (EA) 29.50 COMPUTER BASEBALL—SSI 24.50 
BANK STREET MAILER 64K/128K... (EA) 40.50 MATH BLASTER—OR CLASSMATE.. (EA) 29.50 . BYTE PAINT—BYTE WORKS (128K) 21.95 F-15 STRIKE EAGLE/SOLO FLT. (EA) 21.50 
CROSSTALK—MICROSTUFF... 104.00 — MINIT/MAXIT/TARGET—MILLIKEN 24.50 | C.I.A. FILES—GOLDEN DELICIOUS 44.95 FLIGHT SIMULATOR II 31.50 
DB MASTER 4 PLUS—STONEWARE 167.00 : MOTHER GOOSE #1/2—HARTLEY.. (EA) 32.00 | CAT GRAPHICS/MAGIC PAINT BRUSH(EA) 21.00 | GATO 24.50 
DB MASTER BUSINESS TEAM (+/C/E).. 187.00 , READER RABBIT—MOPTOWN HOTEL. (EA) 23.95 | COPY II PLUS (64K-CURRENT VERS) 22.50 , HITCHHIKERS GUIDE TO THE GALAXY 24.50 
DOT PLOT—CMI CASCADE ( + /C/E). 50.00 | REMEMBER! .... 46.95 D-CODE (2 + CE 48K DOS/PRODOS) 22.00 | HOBBIT (THE) 21.50 
FLASHCALC {+ /C/E/) 58.00 | ROCKY’S BOOTS—ROBOT ODYSSEY. (EA) 29.50 DISK QUIK (CE 128K DOS) 16.00 . JAMES BOND-A VIEW TO A KILL 24.50 
GRAPHICS DEPT. (THE)—SENSIBLE 75.95 | SPELL-IT OR WORD ATTACK. (EA) 29.50 | DMP UTILITIES (SPECIFY PRINTER) 41,00 KARATEKA......... 21,50 
GRAPHWORKS—PBI (REQ. APPLEWORKS). 56.00 | STICKYBEAR ABC/#'S/MATH/ETC.. (EA) 23.95 | DOS BOSS (2+ CE 48K DOS) 13.50 KING'S QUEST (C/E-128K) 29.50 
HABAMERGE—HABA (REO. APPLEWORKS) 49.95 | STORY MAKER—SCHOLASTIC (HOME) 23.95 | DOUBLE TAKE (2+CE 48K 3.3/PRO)..... 19.00 LODE RUNNER/CHAMPIONSHIPLR. (EA) 21.50 
OMNIS 3—ORG. SUPPORT SOFTWARE. 250.00 | TEASERS BY TOBBS—SUNBURST (HOME) 30.00 , EDD !li—UTILICO : 45.50 . MICRO LEAGUE BASEBALL 24.50 
PFS FILE/REPORT/GRAPH/PLAN... (EA) 70.95 © TERRAPIN LOGO (2/ + /C/E} 59.50 ° EXTRA K (CE 128K DOS/PRODOS) 22.00 . MILLIONAIRE/BARON/SQUIRE (EA) 24.50 
PFS FIRST SUCCESS (PRODOS-128K) 133.00 ' TYPING TUTOR II). 29.50 FAT CAT (2 + CE 48K DOS/PRODOS). 19.00 | MIND FOREVER VOYAGING 26.95 
PINPOINT (REQ. APPLEWORKS) 42.00 WHERE IS CARMEN SAN DIEGO? 23.95 FLEX TYPE OR FRAME UP 16.50 , MINER 2049°ER10R I (EA) 25.50 
PROFILER—PM SOFTWARE (PRODGS). 58.00 | WONDERFUL WORLD OF PAWS!-W/0O BU 30.95 . FONTPAK #1 THRU #13 15.50 | MOEBIUS 36.50 
PROFILER PFS DATA CONVERSION... . 26.95 | HOME | FONTRIX 1.5 : 55.00 ° PHANTASIE OR MECH BRIGADE (EA} 24.50 
SIDEWAYS (DOS OR PRODOS) (EA) 35.50 | nazzte pRaw $35.50 | SP-LE. (2+CE 48K DOS/PRODOS). 26.50 PINBALL CONSTRUCTION SET 21.95 

. GRAPHICS MAGICIAN 35.50  RACTER 26.95 


SUPERCALC 3A (2C/2E ENH). 113.00 
COMMUNICATIONS DOLLARS & SENSE—MONO. (C/E-128K). 68.50 | dome DATA MANAGER —PENGUIN (NEW). 35.95 RAILS WEST/SIX-GUN SHOOTOUT (EA) 24.50 


FAMILY ROOTS—QUINSEPT (2/+/C/E) . 135.00 | KYAN PASCAL KYEN ae 
P _... (EA) $ 76.50 : ‘95 ° RENDEZVOUS WITH RAMA/AMAZON (EA) 24.50 
sea ea ae MACH {l JOYSTICK-2/ + OR C/E... (EA) 26.95  wacROSOFT & ASSEMBLER (PRODDS) 81.50  SARGON III 29.95 


MICROMODEM ZE&SC |_ HAYES (2/ + /E) 130-00 | NEWSROOM (NEW LIST PRICE-859.95) 35.00 ° MASTER DIAGNOSTICS (+ /C/E)... (EA) 41.50 SKYFOX/1-ON-1/SEVEN CITIES. (EA) 25.50 


SMARTMODEM 1200—HAYES (RS232)... 377.00 7 
SMARTMODEM 300&SC I-HAYES(2C)... 185.00 OFINT SHUR-ERGDESEUNG Pee es MERLIN PAO (C/E.128K 3.3/PR0) 57.50 | SPY HUNTER OR TAPPER (EA) 26.95 
700M MODEM 2E PLUS 120.00 | PRINT SHOP GRAPHICS LIB #1/2/3 (EA) 15.0 ce-P:-PRO/PAC (SPECIFY PRINTER) 21.95 STEPHEN KING-THE MIST 24.50 
WORD PROCESSING PTS COMPANION foe ere ana aa oneal ae 
BANK STREET SPELLER (REQ. WRITER) $ 40.50 RAINBOW PACK+ (120 W/ENVELOPES) 14.95 , PRODOS ORCA/M._BYTE WORKS (elk, irs SMILE AE APSHALTRILGEY aay 
BANK ST. WRITER-64K OR 126K. (EA) 40.50 RAINBOW PACK 300 (RED/BLUE/GOLD) 11.95» sii icgn SALAD (2 + CE 48K DOS tien» <ULTIMACIMIW ent ge ae 
BOOKENDS EXT. (PRODOS-2C/2E-128)... 88.00 | AAM CHIPS-NECZ56K/150NS (9 CHIPS}. 33.00 | Taye yin ). : y HEAD SS. 

FORMAT il ENHANCED (64K & 128K) 88.00 | RAMORIVE 2E (REQ. RAMWORKS) 19.00 7 ANIMATION #3 (BUSINESS) 29.50 WHERE. . IS CARMEN SAN DIEGO? 23.95 
MOUSEWRITE—WAGNER (2C/E-ENH 128) 73.00 ' RAMWORKS 64K—APPLIED ENG. (2E).... 130.00 | TAKE 1 ANIMATION #1 OR #2 (EA) 18.95 . WISHBRINGER OR ZORK | (EA) 24.00 
PFS WRITE (PRODOS-2C/2E-128k). 70.95 | RAMWORKS 256K—APPLIED ENG. (2E)... 182.00 TAKE 1—BAUDVILLE (2/ + /C/E 64K) 35.50 * WIZ | (PROVING GROUNDS) 29.95 
SENSIBLE SPELLER-DOS/PRODOS... (EA) 71.50 | RAMWORKS RGB OPTION—APPL. ENG... 95.00 , TIP DISK #1 OR TYPEFACES... (EA) 10.95 . WIZ Il (KNIGHT OF DIAMONDS} 21.50 
SENSIBLE TECHNICAL DICTIONARY 35.95 | SYSTEM CLOCK IIC—APPLIED ENG. 59.00 | TOOLBOXES—ROGER WAGNER. (EA) 23.95 WIZ lil (LEGACY OF LLYLGAMYN) 24.50 
SPELLWORKS (REQ. APPLEWORKS) 32.95 | TIMEMASTER I! HO—APPLIED ENG. 95.00 j TRIPLE DUMP (2/ + /C/EDOS/PRODOS).. 21.50 ZAXXON . 18.95 
WRITE CHOICE—WAGNER (2/ + /C/E) 26.50 © Z-RAM 256K IIC—APPLIED ENG 292.00 | UTILITY CITY (2+CE 48K DOS)... 16.00 © ZORK NOR Hil 26.50 


TERMS U.S. SHIPPING: UPS Ground—$2.00/Order. Others—Shpg. + $2.00 


PAYMENT: Checks/VISA/MC/Money Order/PO-Schools Only T R | AD Software Products Canada:-Shpg + $3. APO/FPO/Foreign Orders-Shpg + $4 

Credit Card—Include #, Exp. Date, Tel #(No Charge) 1414 Ch T L WARRANTY: Defect-free for 30 Days. Our Shipping Date 

School PO Processing Fee-Add 1% (Min. $1.50/Max. $10.00) erry tree Lane : deat) Ue. onl less ‘ol Pay AL soinbing, Cast s.} 
School Terms: NET 30. eturns Require Prior Authorization-Write or Cail 402-331-7312 

Personal Checks—Allow 10-14 Days for Processing Unless Papillion, NEbraska 68046 2200 ITEM ‘CAT-A-DISK’ CATALOG: $5.00 ($2 w/Order) 
Guaranteed by Credit Card Number and Expiration Date Daily: 8:30 a.m.-9:00 p.m. CST / Saturday: 9:00-5:00 CST FREE 400 ITEM FLYER: Write or call 402-331-7312 

Nebraska Residents—Add 3'%% Sales Tax. Credit Card Ordering Only: 1-800-835-7427, Ext. 310 APPLE is a registered trademark of Apple Computer, Inc 

Sorry. We no longer Ship €.0.0 Price Quotes/Inquires/Returns/Other: 1-402-331-7312 PREPARED OCT. 1985 PRICES SUBJECT TOCHANGE = {#86-01) 


70 January 1986 © Nibble Magazine 


OCURSOR 


UOALOUDOLUADOOONOADOAOOOAAUOAROEOAOOUOOONUNDOGDOUOAEOUDUGOOODEOOAOONDUEOOAUOOOEOUEOOAUOOUNCONDORUOOOOOOEOUOQODOOONOOOEUEOOOVOCUEOOOUOGUEOOOOOEUOCOOOOEU EO OOOEEEBONT) 


TIPS ’N TECHNIQUES 


AUUGAUDEDAUOUNUOOGOUAGEUNUAOGEGOOOGAUOOOOGODOGOGAOROGOGOOGUNOLOGEOODEOUONUOEOUDUDNODOGONOOONUAUODOUOOOEOUDOUOGOULOOUUOUDODOGUOGOUOLNUUONONONONOGOUOUENUGOOMALOOOLOL 


SULA UUCLOUEUOUAOUDOONAOGOUAOOOEOOONOUOUOONOONDOOROOUOOOOUEDOOEOOOOOOEOOUNONODUEEOOOUOOOOOEOOUOUNEDUOGOUGOOOROOUDOOROOOUONONOUOUCUOOGONOOUCOONONOOOOOONON 


by Jim Lazar 
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f you’re 


yearning for the old solid box cursor on your //e or //c, now you can have it 
with this ProDOS routine. You can even choose a cursor character of your 


own. 
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eturn with us now to the days 

of the blinking box cursor. 

When I bought my Apple //e, 
I was disappointed by the lack of the old, 
solid, blinking box cursor. By the time I up- 
graded to ProDOS, I was starved for the 
friendly, blinking box. To finally rid my- 
self of the checkerboard cursor and the 80- 
column non-blinking cursor, I wrote 
ProCursor. 

ProCursor replaces your system’s cursor 
with the solid, blinking cursor that any 
veteran user of the Apple II or II Plus will 
recognize. ProCursor features include speedy 
movement on the 80-column screen, and the 
ability to convert the cursor to any character 
you want (such as an underline or even an 
apple-shaped character on the Apple //c). 

ProCursor works on any Apple //c or //e 
under ProDOS with BASIC.SYSTEM in- 
stalled. It operates exactly as the normal 
cursor does and is compatible with all 
Applesoft programs and any machine lan- 
guage programs that use the Monitor’s 
KEYIN routine. 


USING PROCURSOR 
To install ProCursor, either execute the 
machine language program (Listing 1) 


by Jim Lazar, 1109 Niesen Rd., Port Wash- 
ington, WI 53074. ProCursor is compatible 
with ProDOS only. 


directly or run the Applesoft program (List- 
ing 2). There are three ways to execute the 
machine language program directly: 


BRUN PROCURSOR 

or: 

—PROCURSOR 

or, from within a program: 

PRINT CHR$(4)‘‘—PROCURSOR”’ 


To run the Applesoft program (Listing 2), 
type: 


Hex 


_ $FF 


$DF/$9F 223/159 
$DE/$9E 222/158 
$AA 170 
$A0 160 
$7F 127 
$2B 43 
$20 32 
$1E 30 
$40 64 
$41 65 
$42 66 
$5B 91 


TABLE 1: Blink Character Values 


Apple //c and Enhanced Apple //e Only 


RUN PROCURSOR.INST 


The program automatically determines 
what type of //e or //c you have, and then 
offers you a choice of two cursor characters: 


1. Solid Blinking Box 
2. Custom Character 


If you choose option 2, you are first asked 
for the code of your custom character. Con- 
sult Table 1 for some commonly used char- 
acter codes. 

Once the program is installed, it should 


Blink Character 


Normal checkerboard 
Normal underline 
Normal caret (A) 
Normal asterisk (x) 
Normal space 
Inverse checkerboard 
Inverse plus sign (+) 
Inverse space 
Inverse caret (A) 


Solid apple 
Open apple 
Pointer 
Diamond 
Cross 
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MANAGING YOUR CHECKBOOK? 
MANAGING YOUR BUDGET? 
MANAGING YOUR BILLS? 
MANAGING YOUR CASH FLOW? 
MANAGING YOUR TAXES? 
MANAGING YOUR INSURANCE? 
MANAGING YOUR STOCKS? 
MANAGING YOUR BONDS? 
MANAGING YOUR REAL ESTATE? 
MANAGING YOUR TAX SHELTERS? 
MANAGING YOUR SAVINGS? 
MANAGING YOUR MORTGAGE? 
MANAGING YOUR AUTO LOAN? 
MANAGING YOUR RETIREMENT? 
MANAGING YOUR CALENDAR? 
MANAGING YOUR CHARGE ACCOUNTS? 
MANAGING YOUR CAPITAL GAINS? 
MANAGING YOUR ANNUITIES? 
MANAGING YOUR APPOINTMENTS? 
MANAGING YOUR DIVIDENDS? 
MANAGING YOUR INTEREST? 
MANAGING YOUR RECORDS? 
MANAGING YOUR VALUABLES? 
MANAGING YOUR KEOGH'S? 
MANAGING YOUR IRAS? 


MANAGING YOUR MONEY’ 
BY ANDREW TOBIAS. 
THE ONLY FINANCIAL 


SOFTWARE THAT DOES IT ALL. 


Software set 


makes yo 
Bi personal computer 
* worth ha 


meca’ 


©1985 *MECA » 285 RIVERSIDE AVENUE, WESTPORT, CT 06880 « (203) 222-1000 « For IBM PC, XT, AT, PC jr (256K), TANDY 1200HD, TANDY 1000 (256K), APPLE lle, IIc (128K, Two Drives) 
CIRCLE NUMBER 32 


OO20: 
9020: 
BOD: 
OOBG: 
9008: 
0080: 
9920: 
OBB: 
9080: 
9008: 
99BO: 
9008: 


BOOB: 
BOBO: 
OB0B: 
BOBO: 
OBBB: 
OOOO: 
OBBB: 
Q000: 
0000: 
BOO: 
O000: 
QO00: 
2000: 
OBB: 
O20: 
9BBO: 
BBB: 
BOOB: 
OBB: 
9200: 
O000: 
OBB: 
OOBB: 
Q000: 
2000 

O000: 
OOOO: 
QB00: 
2800: 
9200: 


0824 
9828 
OO4E 
OO4F 
OOFB 
OOFC 
OO9FD 
OOFE 
OOFF 


957B 


BE36 
BE44 
BE43 


COBB 
COOF 
CO1F 
C054 
C55 


OBJECT 
®2E9 

BE 

3 

BE 

03 


BE 


BE 


BE 
B30A 
BE 
938D 
93 


co 
933C 


95 


co 
9332 
co 


co 


WOMNDUSWNHKE 


Nibble Light Pen, ProDOS Direc- 


OE ————— ¥ 
tory List, ProCursor, DISPLAY 
LISTING 1: PROCURSOR 


and programs from Nibbling at 
Assembly Language V are avail- 
able on diskette for an introduc- 
tory price of $17.95 plus $1.50 
shipping/handling ($2.50 outside 
the U.S.) from Nibble, 45 Win- 
throp St., Concord, MA 01742. 
Introductory price expires 3/31/86. 


— 


Se EERE 


« Zero Page 


PROCURSOR * 

BY JIM LAZAR * 
COPYRIGHT (C) 1986 + 
BY MICROSPARC, INC = 
CONCORD, MA 61742 « 
Sk ee 


Tool Kit Assembler 


Equates 


eo #8 8 eee eH HH 


TT r eee ee ee eee ee Te ee eee eee eee eee ee eee eee ee ee ee ee ee eee! 
HCUR EQU $24 
BAS EQU $28 
RNDL EQU $4E 
RNDH EQU $4F 
WAITLEN EQU $FB 
CHAR EQU $FC 
OLDCHAR EQU $FD 
SPECIAL EQU $FE 
BNKCHAR EQU $FF 
Serer Tre rere eT Te eT eee eee ee Tee Te eee eee ee ee eee eee ee eT 
*  88-Column Card 
eet e eee eee eee ee ee ee eee ee eee eee ee eee eee eee eee eee ee eee! 
HCUR8@ EQU $57B 
Serre Te eee eee ee ee eee eee ee eee ee eee ee eee eee eee ee ee ee! 
« Basic System * 
TUTTI TT TTI TTT TTT TTT “ 
DOSIN EQU $BE36 
IFILACTV EQU $BE44 
EXACTV EQU $BE43 
» Hardware 
eT TeTeCCCCC CTS eT eT eT ee Tee Tee eee eee ee ee ee eee eee ee ee ee 
KEYDATA EQU $COBB 
ALTSET EQU $COOF 
COL8 EQU $CO1F 
TEXT1 EQU $CO54 
TEXT2 EQU $C@55 
» ProCursor * 
NAME IS PROCURSOR 
ORG $2E9 
LDA DOSIN ;Set up Basic.System 
STA EXITVECT ; Global Page vectors 
LDA DOSIN+1 and exit address 
STA EXITVECT+1 
LDA #>PROCUR 
STA DOSIN 
LDA #<PROCUR 
STA DOSIN+1 
RTS 
STTTeT TT eT TT eee Te Te Te eee eee ee eee eee eee eee ee eee ee eee 
« Cursor Flashing Routine 


eee TCC CeCe ee ee Te ee ee eee Te eee eT Te TT eT eee eee Tee ee Tee 
PROCUR BIT IFILACTV ;Check to see if text 
BMI JMPEXIT file is being input 
BIT EXACTV or EXEC file active 
BPL FLASH and skip ProCursor if 
JMPEXIT JMP EXIT either is 
FLASH PHA 
STA CHAR ;Save original character 
TXA and registers 
PHA 
TYA 
PHA 
LDA #$OO ;Clear special character 
STA SPECIAL ; flag 
BIT COL8 ;1f 88-Column Card is on 
BPL CHKCHAR then clean up the 
LDY HCUR Monitor's attempt 
LDA CHAR to flash the screen 
STA (BAS) ,Y character 
LDA HCUR89 ;Divide horizontal 
LSR cursor position by two 
TAY 
PHP ;Lock interrupts while 
SEI screenholes are wrong 
LDA TEXT2 ;Assume even column 
BCC GETOLD 
LDA TEXT1 ;Nope it's an odd column 
GETOLD LDA (BAS) ,Y ;Pick up the character 
STA CHAR and save it 
STA OLDCHAR 
LDA TEXT1 ;Restore to page 1 
PLP 
eee eee eee eee ee ee eT eee eee CCC eC eee eee ee eee eee eee ee ee ee TT 
x Check original character for special values * 


eet ee eee eee eee ee eee eee ee ee ee ee 


continued on next page 


MANAGING 
YOUR MONEY’ 
IS NOW 
AVAILABLE ON 
APPLE 
lle AND llc. 


Special 
Introductory Edition! 


Contains both 514" and 
new 372" UniDisk 3.5° 
disk formats 


MANAGING YOUR MONEY 


Le) Andree Tobias become your persona! 
fonarncial edvinie white your compnrter 
netee yeu menage your ertectieaty 


APPLE lle, lic (128K, 80-Column Monitor, Two Drives) 
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not be installed again unless you have dis- 
abled it or rebooted. To disable PRO- 
CURSOR, enter the following two POKEs: 


POKE 48694,PEEK(899): POKE 48695, 
PEEK(900) 


ENTERING THE PROGRAM 


With an Assembler 

If you have an assembler, enter the pro- 
gram as shown in Listing 1. PROCURSOR 
produces a solid block cursor on the en- 
hanced //e or //c. To produce a version that 
displays a solid block cursor on the origi- 
nal //e, enter Listing 1 as shown and save 
the object code. Then perform the follow- 
ing steps to install a patch: 


1. BLOAD PROCURSOR 

2. CALL —151 

3. Enter the patch: 33C:4C 58 03 

4. BSAVE PROCURSOR, A$2E9,L$DA 


To save PROCURSOR with a custom 
cursor, determine the character code for the 
cursor you want to use, assemble Listing 1, 
and follow the patch procedure described 
above, substituting the following patch: 


33C: A9 80 85 FE A9 code 85 FF 4C 58 03 


where code is the ASCII code of the new 
cursor character in hexadecimal notation. 

If you have entered PROCURSOR using 
an assembler, you do not need to enter List- 
ing 2. 


Without an Assembler 

If you don’t have an assembler, do not try 
to enter Listing 1. Instead, enter the Apple- 
soft program in Listing 2 and save it on disk 
with the command: 


SAVE PROCURSOR.INST 


After you run this program and select the 
cursor you want, it will automatically cre- 
ate the machine language program. When 
the program ends, you may save the result- 
ing machine language program with the 
command: 


BSAVE PROCURSOR,A$2E9,L$DA 


For help in entering Nibble listings, see ‘‘A 
Welcome to New Nibble Readers’’ at the 
beginning of this issue. 


HOW IT WORKS 

My first thought in writing ProCursor was 
to tap into the BASIC interpreter’s input/out- 
put structure. Unfortunately, there is no one 
area in the BASIC interpreter (BI) where a 
patch could be made that would remain valid 
after any revision of the BI. 

Finally, I came up with the best method 
to flash the cursor: any request for a key- 
press (through the Monitor keyboard input 
vector) is directed to PROCURSOR instead 
of to the BI’s keyboard intercept routine. (In 
other words, we’ re intercepting the request 
for a keypress twice.) PROCURSOR flashes 
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LISTING 1: PROCURSOR (continued) 


933C: 
@33E:C9 ES 
0340 :BO 16 
Q342:C9 CO 
0344:98 04 
@346:E9 40 
@348:85 FC 
®34A:C9 60 
834C:B2 BA 
@34E:C9 40 
9358:98 86 
®352:A9 AD 
@354:85 FE 
@356:85 FF 


0358 
234A 


8358 
9358 


0358: 

8358: 

8358: 

@358:20 85 03 
@35B:E6 4E 
®35D:08 82 
@35F:&6 4F 
@361:A2 FF 
9363:86 FB 
@365:2C 88 CB 
0368:38 69 0373 
Q36A:CA 
@36B:D8 FD 
@36D:C6 FB 
B36F :DS F4 
®371:F@ E5 
@373:2C 1F Ca 
@376:18 @5 
@378:A5 FD 
837A: 20 
@370:68 
O37: A8 
O37F :68 
9380: AA 
0381 :68 


0382: 
8382: 
8382; 
@382:4C 
8383: 88 0B 


Q385: 

9385: 

8385: 

9385:8D OF Ca 
8388:24 FE 
@38A:18 8B 
@38C:A6 FF 
938E:AS FC 
@39@:85 FF 
@392:8A 
@393:85 FC 
9395:D8 @6 
9397:A5 FC 
9399:49 88 
939B:85 FC 
@39D:2C 
83AB:38 87 
O3A2:A4 24 
83A4:A5 FC 
83A6:91 28 
B3A8 68 
@3A9:A5 FC 


839D 


O3AB: 

O3AB: 

@3AB: 

@3AB:48 
@3AC:AD 7B @5 
O3AF:4A 
@3B0:A8 
@3B81:68 

83B2 :08 
83B3:78 
93B4:2C 55 Ce 
83B7 :98 83 
83B9:2C 
@3BC:91 28 
Q3BE:2C 
93C1:28 
@3C2:60 


END OF LISTING 1 


98 


CHKCHAR LDA CHAR Check original character 


CMP #$EO ; for the values $CO-$DF 
BCS GETKEY ; and change them to 
CMP. #$CO ; $88-$9F to avoid //c 
BCC CHKCHAR1 >; special characters 
SBC #$4B 
STA CHAR 
CHKCHAR1 CMP #$68 iCheck for a //c special 
BCS GETKEY character and set flag 
CMP #$48 and save a space as the 
BCC GETKEY negative cursor image 
LDA #$AQ 
STA SPECIAL 
STA BNKCHAR 
LAR eee ee ee ee oe ee ee ee 
« Get keypress while flashing cursor * 
Ae ae a ea a a a ee oe 
GETKEY JSR BLINK :Blink cursor 
INC RNOL i Increment random number 
BNE GETKEY1 : for monitor 
INC = RNOH 
GETKEY1 LDX #$FF 
STX  WAITLEN 
KEYWAIT1 BIT KEYDATA ;Check for keypress 
BMI KEYFND ;Yes, key was pressed 
KEYWAIT2 DEX Wait for a bit then 
BNE KEYWAIT2 ; check key again 
DEC WAITLEN 
BNE KEYWAIT1L ;Okay waited long enough 
BEQ GETKEY ; blink cursor again 
KEYFND BIT  COL88 : If 88-Column Card is on 
BPL KEYFNDX ; then repair the screen 
LDA  OLODCHAR 
JSR STORE 
KEYFNOX PLA ‘Restore all registers 
TAY ; before calling real 
PLA input routine 
TAX 
PLA 
eee Oe eae OTR ROE ee 
« Exit vector * 
eee ee eee CeCe eee ee Cee See E Se SC eee SS ESOC eee CeCe Lee Ses 
EXIT OFB $4C ‘Call real input routine 
EXITVECT DW $0288 
eect eee eee ee ee eee ee ee eee eee ee eee ee eS eee eT eT eee eT eee 
« Blink Cursor * 
eee eee ee eee eee eee eee eee ee ee eee ee eee eee ee ee ee ee eee 
BLINK STA ALTSET :Blink cursor 
BIT SPECIAL ;1f a special character 
BPL BLINK1 ; IS On screen 
LDX BNKCHAR then switch character 
LDA CHAR ; with negative cursor 
STA BNKCHAR character 
TXA 
STA CHAR 
BNE SAVE 
BLINK1 LDA CHAR :Make character opposite 
EOR #$88 : mode 
STA CHAR 
SAVE BIT COL8S :Save cursor on screen 
BMI SAVE8@ 
LOY HCUR :Save on 48-column screen 
LDA CHAR 
STA (BAS) ,¥ 
RTS 
SAVE8S LDA CHAR ;Save on 8@-cotumn screen 
eee ee eee eee eee eee ee ee eee eee ee eee ee ee eee ee eee ee ee 
» Store character on screen * 
eee eee eee ee ee eee ee eee eee ee eee ee ee eee eee ee ee ee ee 
STORE PHA 
LDA HCUR8@ :Divide horizontal 
LSR cursor position by two 
TAY 
PLA 
PHP 
SEI :Set interrupt disable 
BIT TEXT2 :Assume even column 
BCC STORE1 
BIT TEXT1 ;Nope-odd column 
STORE1 STA (BAS) .Y :;Store onto the screen 
BIT TEXT1 
PLP 
RTS 


489ED784 B2E9 - 8338 29BE 
6536682A 9339 - 8388 2989 
9D6BC6E3 9389 - 83C2 2166 
7B353FCB = PROGRAM TOTAL = DA 


KEY PERFECT 5.8 
RUN ON 
PROCURSOR 


cursor (as long as an EXEC file isn’t in ef- 
fect or a text file isn’t being read from) and 
jumps to the original intercept routine (in 
the BI). 

When PROCURSOR is run, lines 50-53 
in Listing 1 save the original keyboard inter- 
rupt routine address (at $383) for branching 
after each keypress. Lines 54-58 set the key- 
board interrupt to point to the beginning of 
PROCURSOR (the Monitor’s vector at $28 
is set by the BI). 

When PROCURSOR is installed, a jump 
is made from any routine that uses the stan- 
dard keyboard input routines to the begin- 
ning of PROCURSOR (line 63). From here, 
lines 63-67 determine if a text file is being 
read or if an EXEC file is active. The pro- 
gram exits to the normal input routine if 
either one is active. Next, lines 68-76 save 
the processor registers and the original 
screen character (also, the special flag is 
cleared). 

Lines 76-77 check to see if the 80-column 
screen is on; if not, program flow skips to 
line 98. If the screen is on, lines 78-80 repair 
the Monitor’s attempt to flash the character 
on the screen. Lines 81-93 pick up the cor- 
rect character from the screen and save it 
in CHAR and OLDCHAR. 

Lines 98-104 check the original charac- 
ter for a value between $CO and $DF and 
change the character to eliminate Mousetext 
on the Apple //c (values $40-$5F) on the in- 
verse blink. Lines 105-111 check for a 
Mousetext character, set the SPECIAL flag 
and set the blink character to a normal space 
character ($A0). 


If you elected to install the original //e 
patch or the custom cursor patch, the code 
at $3CC will be different. In the case of the 
original //e, the first instruction will be a 
JMP $358, which skips the check for 
Mousetext characters. The custom cursor 


UUUOUALAEAAOUOGAURANGAGELEALDDENCEATNUEOUOVOLAPADOOGCRTONOUDSUCCOOCAOTUUGOOGNDECUAGODOONOUEO ODONODECGOEDOT 


roCursor replaces your 
system’s cursor with the 


solid, blinking cursor that 
any veteran user of the 
Apple II or HU Plus will 
recognize. 
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patch makes the program think that the origi- 
naj character was a Mousetext character and 
loads the Accumulator with the code for the 
custom character before jumping to $358. 

If a key was pressed, lines 129-132 re- 
store the original character to the 80-column 
screen. Lines 133-137 restore the registers 
before calling the real input routine. The exit 
vector (lines 142-143) jumps to the address 
that was in memory locations $BE36 and 


LISTING 2: PROCURSOR.INST 


$BE37 when PROCURSOR was installed. 

The cursor blinking routine is in lines 148- 
166. Lines 148-156 swap the original 
character and the blink character, and save 
the result on the screen if the special flag 
is set. Lines 157-159 change the high bit on 
the character to switch it from normal to in- 
verse or vice versa. Lines 160-166 save the 
new cursor character on the screen. Finally, 
lines 171-184 make up the 80-column char- 
acter storage routine. 


CUSTOMIZING THE CURSOR 

When using PROCURSOR with the patch 
to blink the original character with a char- 
acter of your choice, you can change the 


’ blink character by entering: 


POKE 833, code 


where code is the character code for your 
new cursor. This allows you to use differ- 
ent cursors for different inputs. For instance, 
you could use an underline for strings and 
a plus sign for numbers. 


PROBLEMS WITH PROCURSOR 

There are two minor problems with Pro- 
Cursor that can’t be fixed without altering 
ProDOS, the BASIC interpreter or the 80- 
column firmware. If you leave escape mode 
when the 80-column firmware is in effect, 
the cursor reverts to the checkerboard until 
the next keypress. Also, if you use the right 
arrow key to trace over a Mousetext charac- 
ter on the //c (but not the enhanced //e), it 
turns into an inverse upper-case character, 
and vice versa. 


188 IF VER = 2 THEN POKE 828,76: 


POKE 829,8 
FOR A = 831 TO 855: POKE 
GOTO 210 


FOR A = 828 TO 838: READ B: POKE A,B: NEXT 


POKE 833,CHAR: FOR A = 839 TO 855: POKE 


PRINT "“ProCursor 1."“VER 


DATA 173,54,198,141,131,3,173,55,190,141 
,132,3,169,8,141,54,198,169,3,141,55,199 
,96,44,68,199,48,5,44,67,198,16,3,76,1308 
,3,72,133,252,138,72,152,72,169,8,133,25 
4,44, 31,192,16,31,164,36,165,252,145,48 

DATA 173,123,5,74,168,8,128,173,85,192,1 
44,3,173,84,192,177,48,133,252,133,253,1 
73, 84,192,48,165,252, 201 ,224,176,22,201, 
192,144,4,233,64,133, 252,201 ,96,176,10,2 
@1,64,144,6,169,168,133,254,133,255,32,1 


DATA 288,2,238,79,162,255,134,251,44,98,1 
92 ,48,9, 282,288 253,198,251 ,208, 244.249, 
229,44,31,192,16,5,165,253,32,171,3,194, 
168, 184,178,184,76,0,0,141,15,192,36,254 
,16,11,166,255, 165,252,133, 255,138,133 

DATA 252,208,6,165,252,73,128,133,252 ,44 
,31,192,48,7,164,36,165,252,145,48,96,16 
5,252,72,173,123,5,74,168,184,8,128,44,8 
5,192,144,3,44,84,192,145,48,44,84,192,4 


DATA 169,128,133,254,169,98,133,255,76,88 


8: POKE 838,3: 
ee ee ee A,234: NEXT 
28 REM « PROCURSOR . INST * 199 IF VER = 1 THEN 218 
38 REM « BY JIM LAZAR * 2808 
40 REM « COPYRIGHT (C) 1986 « 

5@ REM « BY MICROSPARC, INC + A.234: NEXT 
6@ REM « CONCORD, MA @1742 =» 218 CALL 745: HOME 
7Q0 REM xxx eee RK RK ROK KR is installed" 
88 REM 228 
99 IF PEEK (64435) < > 6 THEN HOME VTAB 

12: PRINT "THIS IS NOT A //e OR A //c.": 

END 
198 IF PEEK (48694) = @ AND PEEK (48695) = 

3 THEN POKE 48694, PEEK (899): POKE 486 230 

95, PEEK (988) 
118 HOME PRINT "ProCursor": PRINT PRINT 

"By Jim Lazar": PRINT PRINT PRINT "C 

opyright 1986": PRINT “by MicroSPARC, I 

nc.": PRINT PRINT PRINT 33,3,238,78 
128 PRINT “1-Solid Blinking Box": PRINT “2-C 248 

ustom Character": PRINT 
138 PRINT INPUT “Enter version to install: 

"SAS: IF VAL (A$) < 1 OR’ VAL (A$) > 2 

THEN PRINT CHR$ (7);: GOTO 138 
149 VER = 3 « (A$ = “2") + (A$ = "1") *« (2 - 258 

( PEEK (64448) = 234)): IF VER < > 3 THEN 

178 
158 PRINT INPUT "Enter blink character num 

ber: ";A$: IF VAL (A$) < @ OR’ VAL (A$) 8,96 

> 255 THEN PRINT CHR$ (7);: GOTO 158 2608 
168 CHAR = VAL (A$) 3 
178 FOR A = 745 TO 962: READ B: POKE A,B: NEXT END OF LISTING 2 
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DISPLAY 
A ProDOS VAR File Reader 
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by Ken Manly 


AOLUEUUNUEODROOOOOACONULOLODOOGNOUEDEDODOOOGECHORORDOOUUEOOEEOOOOUONOOREAUOOOAOOOEEDODOOUOGE DEAOUNEEDDEOUOECROOOHIN 
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APPLE UTILITIES 
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he ProDOS VAR 


type file has many uses, including saving memory, increasing speed, and 
helping with program debugging. Add the DISPLAY command to ProDOS and 
you can view the contents of any VAR file. 
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f the new features that ProDOS 

brings to Applesoft program- 

ming, the VAR file is one of 
the most useful. VAR files are disk files that 
contain the names and values of all real, in- 
teger and string variables in an Applesoft 
program. The STORE command creates the 
VAR file on disk. The RESTORE command 
loads the variables and their values from disk 
and substitutes them for any current Ap- 
plesoft variables. 

However, without a program, there is no 
easy way to see the contents of a VAR file. 
With DISPLAY, a new command is added 
to ProDOS that lists the contents of a VAR 
file. 

There are many potential uses for VAR 
files. Let’s consider three: First, a VAR file 
is a fast and memory-efficient way to initial- 
ize program variables. To set up an initiali- 
zation file, type CLEAR, then type each of 
the variable definitions you want in your 
program. Save it with the STORE command 
followed by your file name. For example, 
STORE SETUP. Then include the 
instruction: 


PRINT CHR$(4)‘‘RESTORE SETUP”’ 


at the beginning of your program. This 
method works faster than having your pro- 


Ken Manly, Buffalo Chip Software, 35 Til- 
linghast Pl., Buffalo, NY 14216. DISPLAY 
is compatible with ProDOS only. 


gram read values from text files and it re- 
quires less memory than multiple assignment 
statements or data statements. 

Second, a VAR file is a good way to pre- 
serve the current state of a program while 
it carries out another task. Suppose that you 
occasionally want your program to sort 
using a very large array. Having the array 
defined all the time is a waste of precious 
memory. Using VAR files, you can STORE 
the current variables, CLEAR memory, 
define and use your large array, and 
RESTORE the current variables. When you 
use the RESTORE command, the space 
occupied by the large array is cleared, the 
current variables are restored, and your pro- 
gram goes back to where it left off. If you 
have an Apple //c or a //e with an extended 
80-column card, you can STORE to and 
RESTORE from the /RAM disk emulator. 
Storage to /RAM is so quick that the delay 
may not be noticeable. 

Third, VAR files can be useful in program 
debugging. You can get a snapshot of what 
the variables look like at any point in your 
program by inserting a statement such as: 
PRINT CHR$(4)‘‘STORE VARBLS’”’ 
If some of the variables in this VAR file do 


not have their expected values, you have a 
good idea of where the bug is hiding. 


DISPLAY 
The third use raises a question: How can 
you examine the contents of a VAR file? 


You DISPLAY it, of course. To add the 
DISPLAY command to ProDOS, just 
BRUN DISPLAY (Listing 1). 

The DISPLAY command can be used 
with slot and drive parameters: 


DISPLAY filename,|{Sslot#,Ddrive# | 

or it can be used with a ProDOS pathname: 
DISPLAY pathname 

Examples of each are: 


DISPLAY VARBLS,S6,D2 
DISPLAY /MYDISK/VARBLS 


Like other ProDOS commands, DISPLAY 
can be used from within a program in a 
PRINT statement preceded by a 
<CTRL>D as in: 


PRINT CHR$(4)‘‘DISPLAY SETUP”’ 


The specified file must be a VAR type file. 

A sample DISPLAY output is shown in 
Example 1. Control characters are indicated 
by a normal character enclosed in square 
brackets. Any strings of zero length are 
identified by *‘Empty string.’’ Simple vari- 
ables are displayed first, followed by arrays, 
both in the order in which they were defined. 
Array elements are listed in order, starting 
with the zero element. In listing multidimen- 
sional array elements, the first index is the 
least significant and the last index is the most 
significant. For example, if BX(_ ) is dimen- 
sioned as BX(1,1), its elements would be 
listed in the order: BX(0,0), BX(1,0), 
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EXAMPLE 1: Sample DISPLAY Output 


BX(0,1), and BX(1,1). 

An array listing can be very long, and you 
may not need to display all of it. Pressing 
<ESC> or <CTRL>C during an array 
listing will cause DISPLAY to stop listing 
that array and begin listing the next array. 
Another way to minimize array listing length 
is to explicitly dimension arrays that are 
smaller than the default dimension of ten. 

The speed of the display can be controlled 
by the Applesoft SPEED command, and the 
display can be sent to a printer or other out- 
put device with the ProDOS PR#n com- 
mand. DISPLAY is compatible with other 
ProDOS add-on commands that use the rec- 
ommended installation methods. 

Some of DISPLAY’s screen instructions 
and error messages contain lower-case 
letters, but if DISPLAY is run on an Apple 
II Plus, lower-case letters are converted to 
upper-case as they are printed. Lower-case 
letters in a VAR file will not be converted, 
however, on the assumption that the Apple 
II Plus must have been modified to allow 
display of lower-case. 


USING DISPLAY 

Let’s look at an example of using DIS- 
PLAY. Suppose you have a program that 
uses text files often. Some of your ProDOS 
commands are assigned to string variables; 
for example, D$ =CHR$(4), OP$=D$+ 
““OPEN’’, and CL$=D$+‘*CLOSE”’. 
These are stored in a VAR file called VBLS. 
The program statement: 


PRINT CHR$(4)‘‘RESTORE VBLS’’ 


loads all the variables, but when you go back 


Nibble Light Pen, ProDOS Directory List, ProCursor, DISPLAY and pro- 
grams from Nibbling at Assembly Language V are available on diskette for 
an introductory price of $17.95 plus $1.50 shipping/handling ($2.50 outside 
the U.S.) from Nibble, 45 Winthrop St., Concord, MA 01742. Introductory 
Price expires 3/31/86. 


LISTING 1: DISPLAY 


Q200: 
2200: 
9B00: 
QO00: 
QO00: 
2200: 
2200: 
2200: 
2200: 
9800: 
BOBO: 
9200: 
2000: 
2000: 
BOBO: 
2200: 
2200: 
2200: 
QO00: 
9O00: 
QO00: 
2000: 
9200: 
QO08: 
O20: 
2200: 
9200: 
9200: 
9200: 
2000: 
2200: 
QB00: 
OB00: 
2200: 
2020: 
O20: 
9200: 
9000: 
2000: 
2200: 
2000: 
2000: 
2200: 
OB00: 
2800: 
QB00: 
2200: 
2000: 
Q000: 
2200: 
9020: 
QOB8: 
9028: 
2200: 
QB00: 
9200: 
2200: 
2000: 
Q000: 
2280: 
9200: 
9BB0: 
OOO: 
OOOO: 
2000: 
O000: 
OOBB: 
220: 


992F 
983C 
983A 
983E 
9842 
OB5E 
9869 
9873 
OBFC 
OOFE 
9188 
9208 
BE@6 
BEOC 
BE5@ 
BES52 
BE53 
BE54 
BE6C 
BE7@ 
BESE 
BEB4 
BEB8 
BEBO 
BEBC 
BECE 
BEDS 
BED6 
BED7 
BED9 
BEDE 
BEF5 
BF58 
BF98 
C888 
C818 
C838 
DAFB 
DB5C 
DEF3 
ED24 
EAF9 
ED2E 
F88C 
F953 
FCA8 
FD75 
FE2C 


@BCA 
98C4 
®8C8 
®BCC 


OBJECT 


BE 


21 


21 


2088 


ree 
NK QOMNDNOSWNHKE 


LST ON,G 
Peeerer reer rr errr te eee eee ee eee ee 
* DISPLAY * 
* by Ken Manly * 
* Buffalo Chip Software * 
* * 
* Copyright (C) 1986 * 
* by MicroSPARC, Inc. * 
* Concord, MA 91742 * 
* * 
* EDASM.SYSTEM * 
* * 
Peete re re Tee eee ee Te eee ee Tee eee 
LENGTH EQU $2F 
AIL EQU $3C 
PCL EQU $3A 
A2L EQU $3E 
A4L EQU $42 
INDEX EQU $5E 
VARTAB EQU $69 
HIMEM EQU $73 
BUFPTR EQU $FC 


PRTPTR EQU $FE 


STACK EQU $108 
INPUT EQU $208 
EXTRNCMD EQU $BEG6 


PRINTERR EQU $BE@C 
XTRNADDR = EQU $BE5@ 


XLEN EQU $BE52 
XCNUM EQU $BE53 
PBITS EQU $BE54 
VPATH1 EQU $BE6C 


GOSYSTEM EQU $BE70 
XRETURN = EQU $BE9E 
SSGINFO  EQU $BEB4 
FIFILID EQU $BEB8 
FIAUXID EQU $BEB9 
FIBLOKS EQU $BEBC 
OSYSBUF EQU $BECE 
OREFNUM EQU $BEDO 
RWREFNUM EQU $BED6 
RWDATA EQU $BED7 
RWCOUNT EQU $BED9 
CREFNUM EQU $BEDE 
GETBUFR EQU $BEF5 
BITMAP EQU $BF58 
MACHID EQU $BF98 


KBD EQU $COBO 
KBSTROBE EQU $CO19 
CLICK EQU $CO30 
CRDO EQU $DAFB 
OUTDO EQU $DB5C 
INTOFAC1 EQU $DEF3 
LINPRT EQU $ED24 


MOVFM EQU $EAF9 
PRNTFAC EQU $ED2E 
INSDS2 EQU $F88C 


PCADJ EQU $F953 

WAIT EQU $FCA8 

NXTCHAR EQU $FD75 

MOVE EQU $FE2C 

;ProDOS MLI function call codes 

READ EQU $CA 

GETINFO EQU $C4 

OPEN EQU $C8 

CLOSE EQU $CC 
MSB ON 

NAME IS DISPLAY 
ORG $2008 
LDA #<LAST-BEGIN+$188 ;Ask BASIC to 
JSR GETBUFR ; reserve space 
STA ORIG ;Remember where it is 
STA A1L 
SEC 
SBC #<BEGIN ;Subtract present location 
STA RELO ; to see how far program 
LDA #<LAST-BEGIN+$18@ ; will have to be 
STA A1L+1 >; moved 

PROTECT LDA A1L ;Protect program space 


continued on page 79 
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to work on the program, you cannot remem- 
ber whether you included the append com- 
mand (AP$=D$+‘*APPEND’’) in your 
file. To find out, BRUN DISPLAY to in- 
stall the command. Successful installation 
is indicated by the title and copyright notice. 
Now type: 


DISPLAY VBLS 


You should see something like this: 


D$ = [D] 

OP$ = [D]OPEN 
CL$ = [D]CLOSE 
RD$ = [D]READ 
WR$ = [D]WRITE 


The APPEND command is not defined, so 
add it by typing three commands: 


RESTORE VBLS 
AP$=D$+‘‘APPEND”’ 
STORE VBLS 


This procedure is simple if you have a 
very small VAR file. What if you have de- 
fined too many variables to fit on the screen, 
and they scroll off the screen before you can 
read through them? There are three things 
you can do. First, you can use <CTRL>S 
to make the listing pause. Type < CTRL>S 
again to continue. Second, you can type 
SPEED=100 before you type the DIS- 
PLAY command. This will slow down the 
display so you can read everything as it 
scrolls by. Third, you can print out your dis- 
play by typing PR#n (where n is the slot 
number of your printer interface) before the 
DISPLAY command. 


ENTERING DISPLAY 

Use the Monitor to type in the DISPLAY 
program from the assembly language list- 
ing (Listing 1). Save it with the command: 


BSAVE DISPLAY,A$2000,L$5CB 


If you enter the program with an assembler, 
note that there is one convention used by 
Apple’s EDASM.SYSTEM that is exactly 
the opposite in assemblers such as Big Mac 
or Merlin. In EDASM.SYSTEM, the state- 
ment #< EXP refers to the high byte of the 
two-byte value EXP, and #> EXP refers to 
the low byte. 

For help in entering Nibble listings, see 
“‘A Welcome to New Nibble Readers”’ at 
the beginning of this issue. 


ANATOMY OF A VAR FILE 
Figures 1 and 2 diagram the internal 
structure of VAR files. 


Variable Storage 

Figure 1 shows how Applesoft variables 
are stored in memory. Simple variables (as 
opposed to array variables) are stored imme- 
diately above the Applesoft program in 
memory. Each variable occupies seven 
bytes, two for the first two characters of the 
variable name and five for the actual value, 
in the case of floating point or integer vari- 


FIGURE 1: Applesoft Variable Storage and ProDOS VAR File Structure 


Apple Variable Storage 


HIMEM 
String 
Values 
FRETOP 
STREND 
Array 
Variables 
ARYTAB 
Simple 
Variables 
VARTAB 
BASIC 
Program 


File information* 


ProDOS VAR File Structure 


String 
Values 


*The five bytes of 
file information 
include the com- 
bined size of array 
space and simple 
variable space, the 
size of simple vari- 
able space, and 
the original HIMEM 
page value. 


Simple 
Variables 


ables, or an address, in the case of string 
variables or function definitions. (Details on 
each type of variable can be found in the 
Applesoft BASIC Programmer’s Reference 
Manual.) 


Array variables are stored in a separate 
area in memory, just above the simple vari- 
ables, and each element of an array has a 
structure similar to a simple variable of the 
same type. The actual characters in each 


FIGURE 2: VAR File BLOADed at Address $2000 


$15 Bytes 
of Simple 
Variables 


$48 Bytes of Simple 
Variables and Arrays 


($2885 - $2044) \ 


2000- 4 


66 


66 


2048- 4F 4E 5A 4F 4D 
2050- 49 43 52 4F 53 50 41 52 
2058- 43 


DB WO 15 90 96 _ 


($2885 -$2819) 


HIMEM 


$9680 Simple Variables 


a BB%, CC$ 


Arrays 


String Values 


ST$(2) = "TWO" 

ST$(1) = "ONE" 

ST$(@) = "ZERO" 

CC$ = "MICROSPARC" 
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LISTING 1: 


2816:28 AQ 
2819:E6 3C 
281B:C6 3D 
281D:D®@ F5 
201F: 
281F:AD 88 
2822:8D 34 
2825:AD 87 
2628:8D 33 
282B:AD 3A 
282E:8D 98 
2831:A9 986 
2833:8D 97 
2036: 
2836:A9 98 
2838:85 3A 
283A:A9 22 
2@3C:85 3B 
283E:A2 96 
2848:28 8C 
2043:B1 3A 
2045:FO 28 
2047:A4 2F 
2849:CH G2 
284B:D8 18 
284D:Bl 3A 
284F:C9 22 
2851:98 BA 
2853:C9 26 
2855:BO 06 
2057:18 
2858:6D 3B 
285B:91 3A 
205D:28 53 
2068:85 3A 
2062:84 3B 
2864:4C 3E 
2067: 

2067 :18 
2068:6D 3B 
286B:99 5C 
206E:C8 
206F :C8 
2878:B9 5C 
2873:D8 F2 
2075: 
2875:AD BO 
2077:84 3C 
2879:A9 22 
287B:85 3D 
287D:A9 CB 
207F:85 3E 
2081:A9 25 
2883:85 3F 
2885:84 42 
2887:AD 3A 
288A:85 43 
288C:28 2C 
208F : 
288F:A2 7A 
2891:AD 88 
2893:B9 CO 
2896:2C 98 
2899:38 6 
2@9B:C9 E® 
289D:98 82 
269F:29 DF 
2GA1:28 5C 
28A4 :C8 
2@A5 :CA 
28A6:D8 EB 
20A8 : 69 
2BA9: 
28A9 : 48 
2@AA:29 87 
2@AC: AA 
2@AD : 68 
2@AE:4A 
20AF : 4A 
20B0:4A 
28B1:A8 
28B2:A9 96 
28B4 : 38 
20B5:6A 
28B6:CA 
28B7:19 FC 
28B9:19 58 
2@BC:99 58 
20BF : 69 
20CB: 
28CB:AB AG 
28C4:AB AD 
28C8:AB AD 
2@8CC:AD AG 
2@D8:C4 C9 
2@D4:CC Cl 
2@D7:8D 


DISPLAY (continued) 


28 85 JSR 
86 INC 
87 DEC 
2014 88 BNE 
89 
BE 98 LDA 
22 91 STA 
BE 92 LDA 
22 93 STA 
21 94 LDA 
BE 95 STA 
96 LDA 
BE 97 STA 
98 ; 
99 LDA 
188 STA 
181 LDA 
192 STA 
183 FIXLOOP LDX 
F8 194 JSR 
105 LDA 
206F 186 BEQ 
107 LDY 
198 CPY 
205D 199 BNE 
110 LDA 
111 CMP 
205D 112 BCC 
113 CMP 
205D 114 BCS 
115 CLC 
21 116 ADC 
117 STA 
F9 118 FX1 JSR 
119 STA 
128 STY 
20 121 JMP 
122 
123 FXTBLP CLC 
21 124 ADC 
25 125 STA 
126 INY 
127 FIXADDR INY 
25 128 LDA 
2067 129 BNE 
1308 
131 LDY 
132 STY 
133 LDA 
134 STA 
135 LDA 
136 STA 
137 LDA 
138 STA 
139 STY 
21 148 LDA 
141 STA 
FE 142 JSR 
143 
144 LDX 
145 LDY 
28 146 BNRLP LDA 
BF 147 BIT 
20Al 148 BMI 
149 cmMP 
20Al 1508 BCC 
151 AND 
DB 152 BNROUT JSR 
153 INY 
154 DEX 
2093 155 BNE 
156 RTS 
157 
158 SETBIT PHA 
159 AND 
169 TAX 
161 PLA 
162 LSR 
163 LSR 
164 LSR 
165 TAY 
166 LDA 
167 SEC 
168 SETLP ROR 
169 DEX 
20B5 176 BPL 
BF 171 ORA 
BF 172 STA 
173 RTS 
174. 4 
AD AG 175 BANNER® ASC 
AS AG 
AD AD 
AS AG 
D3 DO 
D9 
176 DB 


SETBIT 
ALL 
A1L+1 
PROTECT 


EXTRNCMD+2 
TRYNEXT+2 
EXTRNCMD+1 
TRYNEXT+1 
ORIG 
EXTRNCMD+2 
#8 
EXTRNCMD+1 


#>BEGIN 


(PCL). ¥ 
FIXADDR 
LENGTH 

#2 

FX1 

(PCL): :¥ 
#<BEGIN 

FX1 
#<LAST+$109 
FX1 


RELO 
(PCL) .Y 
PCADJ 
PCL 
PCL+1 
FIXLOOP 


RELO 
ATBL,Y 


ATBL,Y 
FXTBLP 


#0 

A1L 
#<BEGIN 
AlL+1 
#>LAST 
A2L 
#<LAST 
A2L+1 
A4L 
ORIG 
A4L+1 
MOVE 


; from ProDOS by setting 
; bits in the bitmap 


;Link DISPLAY into the 
chain of external 
; commands, if any 


; If DISPLAY cannot 

; recognize a command, 

; it will pass control 

; to next routine 

;To start relocation, 
point program 
counter at beginning 

; of program 


;Disassemble an opcode 

;Check opcode 

;BRK means end of code 

;Only 3-byte 
instructions need 
fixing 

;Only instructions 
referring to address 

; within program 

; need fixing 


;Fix by adding RELO 
offset to hi byte 
; of address 


;Move program counter 
; to next instruction 


;Add RELO offset to 

; hi byte of each 

; address in the table 
:;Next address 


;® means end of 
table 


;Move program to 
the space reserved 
for it, using the 

; monitor MOVE routine 


#BANNER1 - BANNER@ 


#6 
BANNER® , Y 
MACHID 
BNROUT 
#$ED 
BNROUT 
#%11811111 
OUTDO 


BNRLP 


#$07 


; Upper 
#8 


SETLP 
BITMAP, Y 
BITMAP ,Y 


$8D 


;Check for Apple II+ 


;Convert lower case 
to upper case 
for II+ 

;Print greeting 


;End of installation 

;This subroutine protects 
the memory page whose hi 
address byte is in A 


five bits of A 
make an index 
the bitmap 


into 


;Lower three bits of A 
choose the bit 

to be set--X counts 

; while bit is shifted 
from carry bit 


;Set the bit in the bitmap 


DISPLAY’ 


continued on page 82 


string are stored in a separate block of 
memory just below ProDOS and its buffers. 

Figure 1 also shows how these three vari- 
able storage areas are put into a variable file. 
Each area remains intact and separate. The 
only changes are the deletion of free space 
and the addition of five bytes at the begin- 
ning of the file. 


File Information Storage 
The five bytes provide three pieces of cri- 
tical information: 


1. The combined size of the simple vari- 
able and array areas 
2. The size of the simple variable area alone 


AUUUUAEVOEOOEAUUETEUEEAEEUAETUGEUECTOE TELAT EEUU 


3. The value of the HIMEM page when the 
VAR file was stored 


This information is used by the RESTORE 
command to reconstruct the variable space. 

The usefulness of the third value is not 
immediately obvious. The value of HIMEM 
determines where string values are stored; 
if HIMEM has been changed from the origi- 
nal value when a VAR file is RESTOREd, 
then the string values will be moved accord- 
ingly. But remember that string variables are 
stored with pointers to a different area of 
memory where the actual characters are 
stored. When the string characters are 
moved, the string pointers must be adjusted 
to accommodate the new location. 

The location of the string pointers can be 
changed another way. ProDOS stores a load 
address for the VAR file in the disk cata- 
log. If the file is loaded so that the simple 
variables start at this address, then all the 
string pointers are correct. Therefore, the 
pointers can be corrected by subtracting the 
difference between the load address stored 
in the disk directory and the address at which 
the file is actually loaded. This is, in fact, 
the method that DISPLAY uses to find the 
true locations of the string characters. 

Figure 2 shows a typical VAR file in 
detail. The file has three simple variables: 
AA=22.222, BB%=22, and CC$= 
**MICROSPARC””’. It also has a real array, 
AY(3), and a string array, ST$(2). The five 
bytes at the beginning of the file show that 
the simple and array variables occupy $40 
bytes (from $2005 to $2044), that simple 
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Ne Express, an 
anthology of Nibble 
Magazine programs and 
feature articles from an 
entire year, costs just 
$14.95-$19.95Yet each 
volume contains over 
$600 worth of valuable, 
time-saving programs. 
Written by the best 
authors. 

You dont have to be a 
stock broker to realize 
this amounts to a 3.343% 
return on your invest- 
ment. Here are some 
highlights: 


Apple TRAC Plus 
Adaptable system for 
analyzing where your 
money goes, and exam- 
ining spending trends. 
(TRAC Plus is the core 
program for a complete 


Apple TO.U.G.H. (Text Outputter, Updater and General- 


ized Handler)—lurn your Apple 
Processor. 


EFAPKESS V 


Nibble Express 
gives you a 

3,343% returnon | 

your investment! | 


Personal Finance System 


with its Companion pro- 
grams TRAC Budget 
TRAC Graphics, and I|n- 
come TRAC, also fea- 
ured in this ad.) 


nto a line-oriented Text 


Apple Simon—Low-Res Graphics version of the 
popular game. Test your coordination and memory! 


PIP Il (Personalized In- 
ventory Program)— 
provides a complete 
disk-based Data 
Management System for 
managing and tracking 
your personal assets. 


Apple A.1.M. 
(Automated Intelligent 
Mailing)—Highly modular 
system for managing 
Mailing Lists and other 
Filing/Retrieval/Listing ap- 
plications. 


Apple CHAMP 
(Checkbook Advanced 
Management Program)- 
Versatile data entry and 


Checkbook Reconcilia- 
tion System 

Music Retrieval System (M.R.S)—Fast, flexible file 
management system for storing, cataloging, and retriev- 
ing information on your record collection. 

Apple Star System—Self-prompting system for Data 
File Management. 

Apple MAPS—Comprehensive Marketing and Personal 
Shopping System, helps keep track of grocery stocks 


TRAC “B” (Budget TRAC)—Flexible, fast budget ac- 
count preparation and reporting system for your per- 
sonal finances. Works with Apple TRAC. 


NIBBLE EXPRESS Ill TRAC ‘/” (Income TRAC)— 


Third major module to the TRAC Home Finance System, 


monitors your income from 
various Sources 

Apple MLE (Machine 
Language Editor)—Powerful, 
One-of-a-kind utility for enter- 
ing and editing Machine 
Language Programs. 


nipple 


NI RIENS 


Micro-Calc—Generates 
your own, customized 
Finance Program for home 
or busines. 

A.L.E. (Applesoft Line Editor)—Powerful Utility that 
helps you write and edit Applesoft Programs. 

Apple Recipe Box—Makes Cook-Booking simple! 


NIBBLE EXPRESS IV 

The Nibble Investor— 
Comprehensive Tracking, 
Analysis, Reporting, and 
Graphics Charting System 
for your Stocks and other 
investments. 

The Nibble RAM 
Manager—Powerful Utility 
that puts up to 10 programs 
of your choice into a 16K 
RAM Card for instant ac- 
cess at the touch of a key! 

TU.N.E.S.—Comprehensive Music System that lets you 
create songs and sound effects. 

RAM Disk—Makes your RAM card a Pseudo-Disk. Ac- 
cess data files or save and load programs quickly. 


NIBBLE EXPRESS V 

Nibble File Cabinet—Flexible Database Management 
System that lets you create variable length records. 

Applesoft Global Editor—Powerful Editor for Applesoft 
programs offers selected or automatic search and 
replace. 

Sound Synthesizer—Sound Creation Utility that lets 
you “draw” your sound effects and simple melodies on 
the Hi-Res screen. 


nibble 


EACIPIR SS 


VOLCMIE Iv 


UL - AUG - SEP - OCT - NOV - DEC - JAN: FEB - MAR: APR: MAY - JUN - JUL: AU 


RAM Disk 64—Create a 170 sector pseudodisk on 
your 128K lle or llc for fast access with normal DOS 33 
commands. 

Hi-Res Houdini—Machine Language Graphics Utility 
creates special graphics effects. 

Nibble Diner—Personal Diet Planner provides nutri- 
tional analysis of foods and 
keeps track of your eating 
habits. 

Nibble Garage—|mproves 
car care by tracking 
maintenance and gen- 
erating reminders of 
necessary repairs. 

Nibble Broker—Track your 
stocks and graphically 
display your profits. 

The BASIC Assembler— 
Editor/Assembler package, written in Applesoft BASIC, 
produces machine language programs quickly and easily. 

Coupman—Make better use of your coupons and save! 


After you've made a big investment 
in your Apple, it pays to keep it busy. 
Invest in Nibble Express. 


| Send me NIBBLE EXPRESS! i 


| NIBBLE EXPRESS II—$14.95 Visa 
NIBBLE EXPRESS IIl-—$1795 Check. M. O 


NIBBLE EXPRESS IV—$1795 
O NIBBLE EXPRESS V—$19.95 


Please add $1.75 shipping/handling per copy (outside U.S.A. add $2.75 surface 
or $6.50 Air Mail per copy). Mass. residents add 5% sales tax. 
Payable in U.S. funds only. 


Address 


City = ~~ State Zip 


Signature Date 


Charge Card # Exp. Date 
45 Winthrop St., Concord MA 01742 (617) 371-1660 


et __ 
Apple is a registered trademark of Apple Computer. Inc 


i Name Tel. # 


LISTING 1: DISPLAY (continued) 


variables alone occupy $15 bytes (from | jgp8-ag ag agca 177 ASC ‘Displays the values in' 
$2005 to $2019), and that HIMEM was at | 200C:e€9 F3 FO EC 


20E0:E1 F9 F3 AG 
$9600 when the file was STOREd. Under cameos ta ae ae 


ProDOS, HIMEM can only be set on even | 2g€8:F6 £1 EC F5 


page boundaries. The low byte of HIMEM | 29EC:E5 F3 A® E9 
20F0:EE 


is always zero, so only the high byte needs | 29F1:ag €1 Ag D6 178 ASC ' a VAR file’ 
to be saved. 20F5:C1l D2 AG E6 
20F9:E9 EC E5 
A 2@FC: 8D 179 DB $8D 
Where’s the Function? 20FD:AD AD AD AB 188 ASC by Ken Manly' 


; : ‘ia 2101:AB AB AB AD 
During my investigations, I made a rather 7195:AB AD AD AG 


surprising discovery about function defini- | 2199:ag E2 F9 AG 


tions in VAR files — they are missing! The | 2190:CB ES EE AO 
: : : ; : 2111:CD El EE EC 
function name is stored with the simple vari- | 5;15:F9 


ables, but the definition itself is inside the | 2116:8D 181 DB $8D 


original Applesoft program. If the program ratty - je oo zee oe soy eee tee 
that created the definition is not present, or | 211F:A9 A®@ B1 B9 
if the program has been changed, the func- | 3123°88 86 AO E2 
tion definition is not available. An attempt | 2129:cb E9 £3 F2 183 ASC  'MicroSPARC, Inc.' 
to use such a function will evoke a SYN- | 212D:EF D3 D@ Cl 


TAX ERROR message. Since DISPLAY | 5135.06 ce eS ac 


will usually be used without a program, it il sia ae ee of $8D 
does not attempt to display the function defi- 213A. 0001 186 ORIG Ae i 
nition. Instead, it prints ‘‘Function defini- | 2138: 0081 187 RELO DS 1 
Sey? it : 213C: 188 ; 
tion” to indicate that the function name has eye OO3C: 65 VERE EQU > 
indeed been defined. 213C: g0C4 190 DS — $100-HERE 
2208: 191, 4 
2200:A2 8B 192 BEGIN LDX #8 ;Compare command in the 
MMM 2202:BD 88 02 193 NXTCHR LDA INPUT , X ; input buffer with 
2285:DD 86 25 194 CMP CMD+1 ,X ; Our command (DISPLAY) 
2208:D8 27 2231 195 BNE NOTOURS ;Mismatch--not our cmd 
220A:E8 196 INX 
220B:EC 85 25 197 CPX CMD 
228E:D8 F2 2262 198 BNE NXTCHR 
2218: 199 ; 
2218:CA 288 DEX ;Command matched 
2211:8E 52 BE 201 STX XLEN :;The length of our cmd 
2214:AD 5C 25 202 LDA T.BEGIN® ;Tell ProDOS where 
2217:8D 58 BE 203 STA XTRNADDR ; the execution code 
221A:AD 5D 25 204 LDA T.BEGIN@+1 ; for this command is 
221D:8D 51 BE 205 STA XTRNADDR+1 
2228:A9 BB 286 LDA #9 ; Indicate external command 
2222:8D 53 BE 207 STA XCNUM 
2225:A9 81 288 LDA #%10GO9O0O1 ;Tell parser to use prefix 
2227:8D 54 BE 289 STA PBITS ; and expect a filename 
222A:A9 84 2190 LDA #% 00000108 ;Tell parser to allow 
222C:8D 55 BE 211 STA PBITS+1 ; slot & drive number 
222F:18 212 CLC ;Tell ProDOS command is OK 
CCH | 2238 :68 213 RTS 
2231: Za: «5 
2231:38 215 NOTOURS SEC ;Tell ProDOS command is 
2232:4C 9E BE 216 TRYNEXT JMP XRETURN ; not recognized 
oe eee 3038 28 C6 22 ae BEGING JSR CHECKFILE Look for VAR fil 
;Look for ile 
DISPLAY loads at $2000. The first part | 3238:80 18 2252 219 BCS ERROR 
of the program is a loader routine that re- | 223A:20 E@ 22 220 JSR OPENFILE ;Get buffer & open file 
; 223D:B8 13 2252 221 BCS ERROR 
quests space from BASIC.SYSTEM, pro- | 353 59 Fg 22 222 JSR READFILE -Read entire file 
tects that space from ProDOS, relocates the | 2242:80 BE 2252 223 BCS ERROR 
rest of DISPLAY, and connects it to | 2244:28 19 23 224 JSR CLOSEFILE 
2247:28 25 23 225 JSR SETUP :;Set pointers 
ProDOS. 224A:20 6D 23 226 JSR PRINTSIMP ‘Print simple variables 
The idea for the relocation method came | 224D:20 84 24 227 JSR ~~ PRTARRAY :Print arrays 
. : . 4 2250:18 228 CLC ;Everything OK 
from Tom Weishaar’s article, ““A Type | 335): 69 229 RTS ‘That's all, folks 


Command for ProDOS”’ (Softalk, Vol. 4, | 2252: 230 ; 
2252:48 231 ERROR PHA ; In case of error 


June, 1984). My implementation differs, 3253.20 EB DA 339 WSR GRDO 
however, in that the program code and data | 2256:a2 18 233 LDX  #MSG1-MSGB ;Print message 
must be strictly segregated into separate sec- ore ; pe oe - ror ies foes aie 
tions. Furthermore, the code cannot contain | 2250: aD 6C BE 236 LDA VPATH1 -Reprint requested 
instructions that refer to memory locations eee ae - 237 STA — PRTPTR ; pathname 
: : : D 238 LDA VPATH1+1 

by immediate addressing (LDA #LOOP or | 5565.85 FF 239 STA PRTPTR+1 
LDA #>LOOP, for instance). Instead, | 2267:a9 90 240 LDY #8 
internal addresses are placed in a separate | 2202 8) FE a. — oe 
table at the end of the program (lines 646- | 226c:c8 243 INY 
651 in Listing 1. es 2 | 

The relocation routine has two tasks. | 2273:20 80 22 246 JSR BELL :Make a ProDOS bel | 
First, it adjusts the third byte of every three- — — 247 PLA ‘Recover error code 

‘aes ao ae : : B 248 JSR PRINTERR :Let ProDOS print its 

byte instruction in the code section, using | 5574: 1g 249 CLC error massage 
a Monitor subroutine to identify three-byte | 2278:60 258 RTS 
: : ere 227C: 251 ; 
instructions. Second, it adjusts the second Sore. 227C 252 MESSAGE EQU = sGenerall purpose 


SS a mm a Ss | SEES 
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227C:B9 8D 25 253 LDA MSG ,Y ; message printer 
ee ae cern ons SM eA ‘Check for Apple II+ byte of every address in the internal address 
2284:C9 ED 256 CMP HEB ;Convert lower case table. In either case, the relocation routine 
2286:90 B2 228A 257 BCC CHROUT ; to upper case adjusts the appropriate byte by adding to it 
2288:29 DF 258 AND #%11811111 ; for II+ the diff Rerwesnthenro ’ : 
228A: 20 5C DB 259 CHROUT JSR OUTDO € ditlerence between the program s pres 
228D:C8 268 INY -Uses Y to find char ent location and its final location (RELO). 
Ree ies. eee. aes BRE) TALSeaee wea -&: £0 count length Once DISPLAY is installed, its operation 
2291:60 263 RTS is relatively simple. If ProDOS receives a 
2292: 264 | command it does not recognize, it transfer 
2292:B1 FE 265 PRTLOOP LDA (PRTPTR) ,Y ;Printer for strings enize, i Wansists 
2294:99 80 266 ORA #$80 : or pathname program control to DISPLAY. If the com- 
Seat a sage ae oe ib mand is DISPLAY, then DISPLAY returns 
eee ae OP eae sa control to ProDOS, which interprets the rest 
229B:A9 DB 278 LDA #'[, :Prints control chars of the command (the file name, slot, and 
gee en ae Soe “ae r. NS ide square: ‘brackets drive). ProDOS transfers control back to 
22A1:99 49 273 ORA #348 DISPLAY (at BEGINO in line 218 of List- 
asraiees ae DB Bue is nga ing 1). DISPLAY loads the entire VAR file 
22A8:28 5C DB 276 PRT JSR OUTDO into memory beginning at a point just above 
ee a aye any BASIC program. It will not disturb the 
22AD DO E3 2292 279 BNE PRTLOOP program itself, although it may alter its vari- 
22AF 68 288 RTS ables. A pointer is set to the beginning of 
ae eg eon ats She 3 the file and an Applesoft routine is used to 
22B0:A2 20 283 LDX  #$20 move through the file, one variable at a time, 
gears ae bs a BELL1 ue ie -Pretty ProDOS bel| printing its name and value. Each time DIS- 
2287:8D 30 CO 286 STA CLICK :Suggested by ProDOS PLAY comes to a string variable, it subtracts 
a me - eee ie es » Tech Ref Manual the OFFSET value from the string pointer 
22BE-8D 30 CO 289 STA CLICK to find the address where string characters 
22C2:CA 2968 DEX actually start. 
Aaeabes ED “2282 co ere BELLI I hope you will find DISPLAY to be a 
22C6: 293 ; valuable tool in programming the powerful 
Beco: Bee ee CHE CR EE EQ <e VAR files into your ProDOS programs. It 
22C6:A9 BA 295 LDA = #$BA ‘Ten parameters in r ' . , 
22C8:8D B4 BE 296 STA  SSGINFO : parameter list should help both in constructing VAR files 
22CB:A9 C4 297 LDA = #GETINFO ‘Call MLI through and in debugging ProDOS Applesoft 
22CD: 20 78 BE 298 JSR GOSYSTEM ; BASIC.SYSTEM global page 
22D8:B0 GD 22D0F 299 BCS  CHKOUT programs. 
22D2:AD B8 BE 300 LDA FIFILID :Check file type 
22D5:C9 FD 301 CMP -#SFD :VAR file 
22D7:08 @3 22DC 302 BNE MISMTCH 
2209-18 303 cL 
22DA:98 @3 22DF 304 BCC CHKOUT 
22DC:A9 @D 385 MISMTCH LDA #13 “File type mismatch E h 
22DE: 38 326 SEC nnance 
22DF : 68 387 CHKOUT RTS ws 
2260. 308 AppleWorks™ 
22EQ:A5 74 389 OPENFILE LDA HIMEM+1 :Use ProDOS temp buffer 
22E2:80 CF BE 312 STA OSYSBUF+1 : which is just above 
22E5:A9 8D 311 LDA 48 > HIMEM 
22E7:8D CE BE 312 STA  OSYSBUF DMP Utilities lets you use new character 
22EA:A9 C8 313 LDA  #OPEN typefaces with AppleWorks. Now you can 
22EC:28 70 BE 314 JSR = GOSYSTEM get Italics, Gi. ek, Symbols, the highest 
a 68 ae OPENRTN = RTS quality typeface we've ever seen, and many 
: : her fonts, all from within AppleWorks!!! 
22F0: 22F@ 317 READFILE EQU- «+ Omen ight a ERP eoere 
22FQ:A6 6A 318 LDX VARTAB+1 ;Locate data buffer 
22F2:E8 319 INX just above the . 
22F3:8E D8 BE 328 STX  RWDATA+1 : BASIC program, if 24 Imagewriter Fonts 
22F6:8E 75 25 321 STX BUFFER+1 there is one, and 
22F9:A2 86 322 LDX #8 starting on a 20 Epson FX/JX Fonts 
22FB:8E D7 BE 323 STX RWDATA ; Page boundary 
22FE:8E 74 25 324 STX BUFFER eee ; 
2381:AD BC BE 325 LDA  FIBLOKS sGet file length in blocks DMP Utilities includes menu-driven software to 
2304-0A 326 ASL . and tell ProDOS to read download the character sets, and to eliminate 
2385:8D DA BE 327 STA RWCOUNT+1 ; twice as many pages printer control problems forever. You also get a 
2388:A9 20 328 LDA #8 character editor (full descender, proportional 
230A:8D D9 BE 329 STA — RWCOUNT ability) and a program to convert some of the 
238D:AD D@ BE 338 LDA = OREFNUM Get file reference number many hi-res character sets for printer use. 
2310:8D D6 BE 331 STA RWREFNUM from OPEN parm list 
2313:A9 CA 332 LDA = #READ DMP Utilities is supplied on DOS 3.3, un- 
2315:20 78 BE 333 JSR GOSYSTEM locked, and includes a 67 page User's Manual. 
ote ae ae ; RS Because the fonts are downloaded, they work 
: : with any program, not just AppleWorks. Our 
2312: 2319 336 CLOSEFILE EQU z wee no-risk warranty provides you a full refund if 
2319:AD D® BE 337 LDA OREFNUM ‘File reference number ; th ith th The Utiliti 
231C:8D DE BE 338 STA CREFNUM from OPEN parm list you're not happy with the programs. The Utilities 
231F-A9 CC 339 LDA #CLOSE costs $50 (+$2 p/h). MC/Visa gladly accepted 
2321:20 7@ BE 348 JSR GOSYSTEM ions ; 
2324-60 341 RTS DMP Utilities works ONLY with Apple DMP, 
2325: 342 ; Imagewriter I or II, and Epson FX or JX printers. 
2325: 2325 343 SETUP EQU. > 
2325:38 344 SEC :Difference between original Apple imagewriter Trademark of Apple Computer, inc. 
2326:AD B9 BE 345 LDA FIAUXID file load point (FIAUXID) Epson is a Trademark of the Epson Corp. 
2329:E69 @5 346 SBC #5 and present location 
232B:8D 7A 25 347 STA OFFSET : (BUFFER+5) is OFFSET. : 
232E:AD BA BE 348 LDA  FIAUXID+1 : which witl be used to Vilberg Brothers Comp. Inc. 
2331:ED 75 25 349 SBC  BUFFER+1 correct string pointers 4201 Hegg Avenue 
2334:8D 7B 25 358 STA OFFSET+1 Madison, WI 53716 
oe as continued on next page (608) 221-0842 
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THE 


NweLrint 
CARD 
WORKS LIKE 


Turns a Dot Matrix Printer 
into a Daisy 


FOR APPLE Il, Il+, and Ile. 
The NicePrint card improves Epson, 
Apple DMP, NEC, Prowriter and Gemini 
to near daisy-wheel quality! Best of all, 
high quality print is easily available to all 
Apple software that prints text, even copy- 
protected diskettes. 


NOW UPGRADED 


The NicePrint card STILL has all the 
Apple Hi-Res graphic dump commands 
like Grappler and high quality text, but the 
following improvements have been made: 
Six font styles are now included. In addi- 
tion to the standard fonts of Roman, Letter 
Gothic, Orator Large, Script, and Olde 
English, we now offer the new Scientific 
font. The Apple DMP can now do super/ 
sub-scripts and italics. ALL fonts under- 
line, have boldface, pica, elite, and con- 
densed for maximum flexibility. 


NOW onty 1 39 


f= 


Spies Laboratories 


(Spies pronounced “speez”) 
P.O. Box 336 @ Lawndale, CA 90260 
(213)538-8166 


Apple II is a TM of Apple Computer 
Grappler is a TM of Orange Micro 
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LISTING 1: DISPLAY (continued) 
25 


2337 


233F 


2342 


2346 


234F 


2354 
2354 


2357 


2366 


236D 


2371 


2379 
237B 


2381 


2385 
2386 
2389 
238C 
238E 
2391 
2392 
2395 
2396 
2397 
2399 
239B 


23A0 


23A6 
23A9 
23AB 


23B8 
23B3 
23B4 


23B7 
23B8 
23BB 
23BC 
23BD 
23CO8 
23C1 


23D2 
23D4 
23D6 


23E2 


23E5 
23E5 


23EC 


2344: 


2348: 
234B: 
234E: 


2351: 


2355: 


2358: 
235A: 
235D: 
2366: 
2363: 
2364: 


2369: 
236C: 
236D: 
236D: 


236F : 


2374: 
2376: 


237E: 
2380: 


2384: 


239D: 


23A3: 


23AD: 
23B0: 


23C4: 
23C5: 
23C6: 
23C9: 
23CA: 
23CC: 
23CE: 
2300: 


2306: 
2308: 
23DB: 
23DD: 
23DF : 


2364: 


23E5: 
23E7% 
23EA: 


23ED: 
23F0: 
23F1: 


a 


:AD 
233A: 
233C: 
785 
2341: 
2341: 


85 
AD 


74 
3C 
75 
3D 


25 


25 
25 


25 


236D 


25 


23 


25 


25 


DB 
24 
24 


25 


352 
353 
354 
355 
356 
357 
358 
359 
368 
361 
362 
363 
364 
365 
366 
367 
368 
369 
378 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
398 
391 


PRINTS IMP 


SIMPLOOP 


OK 


SIMPCONT 


CHKS IMP 


ARRAYLOOP 


BUFFER 
A1L 
BUFFER+1 
AlL+1 


#5 

#8 
(A1L).Y 
ARRYEND 
BUFFER+1 


(A1L) .Y 
ARRYEND+1 


#5 


(AIL) ,Y 
SIMPEND 
NXTARRY 
BUFFER+1 


(AIL) ,Y 
SIMPEND+1 
NXTARRY+1 


#5 

BUFPTR 
BUFFER+1 
BUFPTR+1 
CHKS IMP 

#8 

VARTYPE 
(BUFPTR) .Y 
‘Save 
VARTYPE 


‘Set 

OUTDO 
INCBP 
(BUFPTR) .Y 
INCBP 

; Save 
VARTYPE 


VARTYPE 
VARSYMB , Y 
OUTDO 
#MSG2-MSG1 
#MSG1 -MSGO 
MESSAGE 


T.SIMPCONT+1 
T.SIMPCONT 


VARTYPE 


SIMPTBL+1.Y 


SIMPTBL.Y 


CRDO 


BUFPTR 
#5 
BUFPTR 
BUFPTR+1 
#8 
BUFPTR+1 


BUFPTR+1 
SIMPEND+1 
SIMPLOOP 
BUFPTR 
SIMPEND 
SIMPLOOP 


#8 

VARTYPE 
(BUFPTR) ,Y 
: Save 
VARTYPE 


‘Set 


;Put buffer location 
on zero page 
for indirect addressing 


:First two bytes in buffer 
have the total no of bytes 
of simple and array vars-- 

;Add this number to start of 
vars (BUFFER+5) to get end 
of array variables 


:Third and fourth bytes 
in buffer have total 
no of bytes of simple 
vars--add this to 
the beginning of vars 
to get the end of 
simple vars and the 
location of the first 
array variable 


:Start printing simple 
variables at BUFFER+5 


:Clear variable type byte 


iFirst char of variable 
high bit 
in type byte 


high bit 

:Print char 

:Point at next char 

:Second char of variable 

;Point at next byte 

high bit of char 
in type byte 

:Set high bit 

:Check for null or control 

If so, replace with space 

Print it 

;Use type byte as an 
to print the symbol 
corresponding to the type 


index 


‘Print ° = 


;Load the stack with 

the SIMPCONT address 

so that control will 

go there after funny JSR 
;Use type byte as an 
index to get the address 

of the routine which 
; will print the variable-- 
;Put the routine's address 

on the stack and call the 
: routine by doing an RTS 
;Funny JSR 


:Advance pointer 
to the next variable 


:Has the buffer pointer 
reached the end of the 
simple variables? 


If not, 
If so, 


print another 
return 
:Clear variable type byte 
‘First char of variable 
high bit 

in type byte 


high bit 


24A4:D8 G2 


2 TY 


DB 


25 


DB 

25 
246C 

25 

DB 


DB 


25 


25 


25 


25 


25 
2444 


DB 
25 
24 
25 


25 
243F 


ae 


DA 


25 


25 


25 


25) 


25 

25 

DA 

25 

25 
2495 

25 

25 
2495 

25 

25 


23 


24A8 


24A9 


PAREN 


DIMLOOP 


PRTDIM 


ARRYCONT 
PRTARRAY 


ARRYLOOP 


INCBP 


INCBP1 


REAL 


OUTDO 


(BUFPTR) ,Y 
; Save 
VARTYPE 


OUTDO 
VARTYPE 
PAREN 
VARSYMB , Y 
OUTDO 

#*( 

OUTDO 


#2 


(BUFPTR) ,Y 
BUFPTR 
NXTARRY 


(BUFPTR) ,Y 
BUFPTR+1 
NXTARRY+1 


(BUFPTR) ,Y 
DIM 


BUFPTR 
#4 
BUFPTR 
BUFPTR+1 
#8 
BUFPTR+1 


DIM 


DIMPTR 
PRTDIM 

#”,, 

OUTDO 
DIMPTR 
DIMEN 
DIMPTR 
DIMPTR 
DIMLOOP 
#MSG3 -MSG2 
#MSG2 -MSG@ 
MESSAGE 
CRDO 


DIM 


BUFPTR 
BUFPTR 
#8 
BUFPTR+1 
BUFPTR+1 


T.ARRYCONT+1 
T.ARRYCONT 


VARTYPE 


ARRYTBL+1,Y 


ARRYTBL ,Y 


CRDO 
NXTARRY+1 
ARRYEND+1 
ARRYLOOP 
NXTARRY 
ARRYEND 
ARRYLOOP 


NXTARRY 
BUFPTR 
NXTARRY+1 
BUFPTR+1 
ARRAYLOOP 


BUFPTR 
INCBP1 
BUFPTR+1 


BUFPTR 
INDEX 
BUFPTR+1 
INDEX+1 


;Print char 
;Point at next char 
;Second char of variable 
high bit of char 

in type byte 
;Set high bit 


;Print char 

;Use type bit as an index 

;No symbol for real array 

;Get and print symbol 
corresponding to type 


;Update the pointer to 
the next array variable 
by adding the offset 
stored with this variable 


;Get number of dimensions 
for this variable 


;Move the pointer to 
the point at which 
the dimension sizes 
start 


: There are two bytes 
for each dimension 
to hold the size 
;Branch always 
;Print a comma 
between dimensions 
;Use dimension pointer 
as index to print size 


i;Next dimension 
if there are any 
;Print ') = 


left 


And carriage return 


;Move the pointer 
to where the data 
starts 


(1 + 2 « no of dimen) 


;Load the stack with 

the ARRYCONT address 

so that control will 

go there after funny JSR 
;Use type byte as an 
index to get the address 

of the routine which 
; will print the variable-- 
;Put the routine's address 

on the stack and cal! the 
; routine by doing an RTS 
;Funny JSR again 


;Has the buffer pointer 
reached the end of the 
array variables? 


: If not, 
‘Le sd), 


print another 
return 


:Set up buffer pointer 


to point to the next 
array 


: Increment pointer 


;Transfer buffer pointer 
to pointer used by 
; move routine 


continued on next page 


FREE?DISKETTES 


SAVE MONEY! Apple II series users can 
use the diskette flip side, if another 
“write enable” notch is correctly made. 


TOP NOTCH by QUORUM 
quickly SOLVES that PROBLEM. 


It's like FREE DISKETTES! 


e Stainless Steel Guide 
e Easy Leverage Handle 
¢ Clippings Catcher 
e Square Notch Cut 
e Black Finish 


Awarded the ais A+ GRADE in a 
comparison test published by the 
INTERNATIONAL APPLE CORE. 
“The best I've found. . .” 
IAC Reviewer 


Certifix” 


BE SAFE! The flipside of a single sided 
disk may have flaws. Any disk is 
CERTIFIED 100% ERROR FREE with 
CERTIFIX. IT “LOCKS OUT” BOTH DOS 
3.3 & ProDOS DISK FLAWS. 


¢ LOCKS OUT ProDOS & DOS 3.3 FLAWS 

e SAVES STATUS REPORT ONTO DISK 

e AUTOMATIC ProDOS /3.3 FORMATTING 

© CREATE 40 trk DISKS & SYSTEM MASTER 
e RECORDS TEST DATE onto disk 

e NOT COPYPROTECTED 


FREE CERTIFIX BONUS PROGRAMS 
e Undelete DOS 3.3 files 
e Test and Adjust Disk Drive Speed 


Prevent Data Loss | 
CERTIFY & FIX every disk with CERTIFIX |! 


Get THE BEST! 
Ask our Customers; 


U.S. National Bureau of Standard 
TRW e IBM e Digital Research ¢ AT&T 
U.S.Naval Weapons Research Center 
Alcoa ¢ Rockwell International 
General Electric Corporation 


FREE! 
64 Write Protect Tabs 
32 Diskette Labels 
If you get the 
DISKETTE FLIP-KIT 
which contains 
TOP NOTCH and CERTIFIX 


100% Money “Back 
Satisfaction Guananter | 
DISKETTE FLIP-KIT only $29.95 
TOP NOTCH is $14.95 


CERTIFIX is just $24.95 
Add $2 s/h e CA add 6.5% tax 


For your nearest dealer 
or to ae auect. 


QUORUM INTERNATIONAL. Unitd. 
INDUSTRIAL STATION PO BOX 2134 NB 
OAKLAND. CA 94614 
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Apple Pascal LISTING 1: DISPLAY (continued) 
1.2/128K Library 24B1:20 FD EA 547 JSR MOVFM+4 :Move number to FAC 
. . 24B4:20 2E ED 548 JSR PRNTFAC ‘Print vatue of FAC 
Double Hi-Res graphics (pages 1/1X & 2/2X) 24B7 : 68 549 RTS 
+ Lo-Res + Double Lo-Res + Hi-Res oaee be 24B8 ose STRING EGU is a . 
" . ae A < tA iGet lengt 
(pages 1 & 2); all that is possible when using PARL BISEE ae EpAne  (BURET ASCH ee ee 
Apple Pascal 1.2,” version 128K, up- 24BC: AA 553 TAX > and keep in X 
graded by “Apple Pascal 1.2/128K Library”. 24B0:F@ 17 2406 554 BEQ = NULL ‘Can't print empty strings 
Even better, you’ll be able to use 132K of rts are eee 
the Apple Ile 128K. 24C1:B1 FC 557 LDA (BUFPTR).Y — :Correct the string pointer 
Five intrinsic units to link into SYSTEM. LIBRARY apes ihe 25 ate are aero : ee cree cee ea 
and one regular unit dealing with Double Hi-Res 248 C8 560 INY where the printing 
graphics. Two double-sided and one single-sided 24C9:B1 FC 561 LDA (BUFPTR).Y . subroutine can use it 
disks hold text & code of five intrinsic units and a 24CB:ED 7B 25 562 SBC  OFFSET+1 
regular one: plus text version of some assembly- 24CE:85 FF 563 STA PRTPTR+1 
language routines used by those units; plus demo 24D8:AB BO 564 LOY #@ 
program(s) for each unit: plus several FOTO files. Po Lares 92 22 ae ae PRTLOOP ‘Print the string 
me 2406:A2 OC 567 NULL LDX #MSG5-MSG4 —: Print message 
Also on disk, a program to create your own graphics 2408:AB 32 568 LDY  #MSG4-MSGB : for empty string 
character set. You can load a set from disk. save a 24DA:26 70 22 569 JSR = MESSAGE 
set on disk, print a complete character set. print a ot ta 24DE a INTEGER ae 
set side by side with an enlarged character you have 24DE.AG BO 572 LDY #0 
chosen, ete. 24E8:B1 FC 573 LDA (BUFPTR).Y =; Load integer value 
If you plan to display Double Hi-Res graphics using oo ee ae bay : soto ¥ and A. 
a Hi-Res color monitor, to take advantage of the 16 24E4.B1 FC 576 LDA (BUFPTR) .Y 
colors provided by this mode. you'll find out much 24E6 -A8 577 TAY ; 
useful information ina 7-page tutorial. Seven sheets 24E7°8A 578 TXA 
of graph paper give the equivalence between all the 24E8: 28 F3 DE 579 JSR INTOFACL ‘Convert to FP 
addresses of the Hi-Res page | vs the Y-coordinate 24EB:28 2E ED 580 JSR PRNTFAC ‘Print FAC 
& the byte/column #. 24EE : 68 581 RTS 
24EF: 24EF 582 FUNCTION EQU * 
A 32-page booklet describes all the procedures & 24EF:A2 13 583 LDX  #MSG4-MSG3 ‘Function definition is 
functions of the five intrinsic units. explains the pur- 24F1:A0 1F 584 LDY  #MSG3-MSG® : not stored in a VAR file-- 
pose of the demo programs and gives many tips and 24F3 : 28 7C 22 585 JSR = MESSAGE Print a message instead of 
useful addresses (a 3-page appendix). rp 68 2 RTS : the definition 
PEEKLIB unit: PEEK, POKE. doublepeek and 24F7: 24F7 588 DIMEN EQU) 
doublepoke with addresses in dec or hex, at your 24F7:Bl FC 589 LDA = (BUFPTR) .Y :Load dimension 
choice; two procs to change bits within a byte any- er ; se ae hee = srze 
where in main memory; proc to write in flashing 24FB-B1 FC 592 LDA (BUFPTR) .Y 
mode with the 80-column card ON (ASCII 64 to 95), 24FD:CA 593 DEX ‘ -Dimension size must 
ete, 24FE:E® FF 594 CPX ASFF : be decremented before 
ECRITO unit: 1! procs to use easily the text capa- gee ; a OS. Tepes ae ae DIMENL * printing 
bilities of the old ADM. the Imagewriter. or even 25903-°E9 O1 597 SBC #1 
the Scribe thermal-transfer printer. 2505 :28 24 ED 598 DIMEN1 JSR LINPRT 
RECO unit: to read a disk directory or read/ rere aaa ; a 
write a file at running time. 2509:20 AQ 24 6@1 REALARRY JSR REAL :Print a real number 
LORES unit: to plot blocks in 16 colors on the Lo- Boo aa eo DA ee ee oon eee teres es 
Res graphics page (full/mixed screen), save on disk 2511:26 33 25 604 JSR NXTELMNT Pane cieee wumeeee< 
a Lo-Res Picture, print one or two side by side Lo- 2514:98 F3 2589 685 BCC REALARRY :Do tt again if any are left 
Res image(s). 2516:68 696 RTS 
TRIO unit: 15 graphics procs. PALETTE (18 earn Sole 
a eee en oe yi eee Lees 2517:28 BB 24 698 STRARRY JSR STRING :Print a string 
options) is a menu-driven proc allowing on both nor- 251A:28 FB DA 689 JSR CRDO : and a carriage return 
mal HGR pages to: load. see or save an image, print 2510-A9 @3 618 LDA #3 /Advance 3 bytes to get 
Page(s) in several modes (even clipping & merged 251F:20 33 25 611 JSR = NXTELMNT : the next string 
Pages). Option to type on any page, passing over 2522:98 F3 2517 612 BCC STRARRY ‘Do it again if any are left 
pixels without damaging them. You can make a clip Bon 68 ci RTS 
Tan DURE ated ans ie rahet Onis OEE PAS: NOU 2525.28 DE 24 615 INTARRY JSR INTEGER Print an integer 
can also on both pages: scroll a picture in four direc- 2528.26 FB DA 616 ‘SR CRDO : Sasa Aa se vetwen 
tions, merge pages in two modes, inverse colors, save 252B:A9 02 617 LDA #2 ‘Advance 2 bytes to get 
any HGR page in aux RAM and re-load that one on 252D:20 33 25 618 JSR NXTELMNT : the next number 
any page in main RAM, ete. 2538:98 F3 2525 619 BCC INTARRY :Do it again if any are left 
2532 60 620 RTS 
Regular unit DUO: 2533: 621 ; 
22 procedures dealing with Double Hi-Res graphics. 2533-18 622 NXTELMNT CLC 
Allows you on page I/IX or 2/2X to: load from disk 2534:65 FC 623 ADC BUFPTR ‘Add the contents of A 
a Double Hi-Res picture (32 blocks), save on disk 2536:85 FC 624 STA BUFPTR : to the buffer pointer 
a picture, clear any page. print a picture. inverse 2538:A9 BO 625 LDA #8 
colors, merge pages in two modes, scroll a Double ooae ; ae oe ee ae: 
Hi-Res picture to the right or the left. You can also 253E. 628 - +1 
transfer any page from main to aux RAM. or the 253E:AD 88 CO 629 LDA KBD Check the keyboard for keys 
opposite (you can even transfer only a single byte). 2541:19 OB  254E 630 BPL = NXTLMNT@ . that abort array printing 
Proc to merge pages 1X & 2/2X (EOR or ORA) 2543:8D 18 CO 631 STA  KBSTROBE 
and save the result in aux memory. keeping both 2546:C9 83 632 CMP —-#$83 :Cntri-Cc 
pages intact: another proc brings back that saved oes Be 255A a. a ee i 
ima 7 2/2X. é ;escape 
EMARE On PARE SE 227 254C:FG BC 255A 635 BEQ NXTLMNT1 
Send $95.00 in US currency (no credit card) to: 254E: 636 . 
‘ “ 254E:A5 FO 637 NXTLMNT@ LDA BUFPTR+1 
Gilles Asselin, 2558:CD 7E 25 638 CMP —-NXTARRY+1 :Has buffer pointer reached 
Ta ee Sea Keene 
Montreal, (Ques 2557:CD 7D 25 641 CMP —NXTARRY 
Canada H2S 2C6. 255A: 68 642 NXTLMNTL RTS Carry set if so 
255B: 643 : 


Apple Pascal 12, Apple Ue. Imagewriter and Scribe are trademarks of : 
Apple Computer, Inc 255B: 88 644 0B 4) :Tell relocater table follows 
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255C: 645 |; 


255C: 255C 646 ATBL EQU * ; Internal addresses 
255C:35 22 647 T.BEGIN@ OW BEGIN@ 
255E:C5 23 648 T.SIMPCONT DW SIMPCONT-1 
2568:88 24 649 T.ARRYCONT DW ARRYCONT-1 
2562:A8 24 658 SIMPTBL DW REAL-1,STRING-1,FUNCTION-1, INTEGER-1 
2564:B7 24 
2566:EE 24 
2568:0D 24 
256A:88 25 651 ARRYTBL OW REALARRY -1,STRARRY-1,BELL-1, INTARRY-1 
256C:16 25 
256E:AF 22 
2578:24 25 
2572:28 98 652 DW @ :Tells the relocater to quit APPLE II+/He/IIc IBM PC/XT/JR 
2574: 653 ; 
2574: @202 654 BUFFER DS 2 ;Start of main data buffer PICK THE ONES YOU WANT: 
2576: 9882 655 SIMPEND DS 2 ;End of simple vars-- 
2578: 656 ; start of arrays CO VOCABULATOR—improve your vocabulary 
2578: @@82 657 ARRYEND DS 2 ;End of arrays-- at selectable skill level, from high school to sesqui- 
257A: 658 | start of string values pedalian. Use multiple choice or quick review mode. 
257A: 2902 659 OFFSET DS 2 ;Correction for Add words you want included, “Recommended: 
257C: 668 ; string pointers Excellent Program’*—Electronic Learning Magazine. 
257C: 9981 661 VARTYPE ODS 1 ;Type of variable (@-3) $29.95 
257D: 662 ; real,string, funct, int ‘ 
2570: 9002 663 NXTARRY DS 2 :Beginning of array C] FINANCER— 10 most needed financial calcu- 
257F: 664 : after the current one lations in easy to use package. Menu selectable for: 
257F: 9281 665 DIM pbs ‘Number of dimensions amortization schedule, present values, future values, 
2580: 666 : in array simple & compound interest, installment loan, days 
2588: 9001 667 DIMPTR DS 1 ;Pointer to print size sae a a ae Sar 
2581: 668 ; of each dimension " 
2581:A® A4 AB AS 669 VARSYMB ASC é $ %. ;Symbols for CO) MUSIC MAN—compose music on screen, 
2585: 678 . the four variable types placing notes, rests, sharps, flats on musical staff. Vary 
2585:07 C4 C9 D3 671 CMD STR = 'DISPLAY' key, pitch, tempo & legato to perfect your music. Save 
2589:D@ CC Cl D9 your compositions to disk to replay later. Comes with 
258D:D5 EE E1 E2 672 MSG@ ASC "Unable to read the file ' musical selections ready to play. For any 80 column 
2591:EC E5 AOD F4 display. $29.95 
a or i e. O STATCALC—key statistical functions for 
259D:£8 E5 AG E6 student or experienced user. Includes correlation & 
25A1:E9 EC E5 AG regression, normal, T, poisson, binomial, chi-square 
25A5:AG8 BD AG 673 MSG1 ASC aan distributions, data handling for sorts, mean, standard 
25A8:A9 AS BD AG 674 MSG2 ASC ‘ye! deviation, range, median. Save data to disc. Manual 
25AC:C6 F5 EE E3 675 MSG3 ASC Function definition’ explains statistics and use. $3995 
2580:F4 E9 EF EE C) HOROSCOPICS—For your birthdate the 
2584:A@ E4 ES £6 exact sky conditions are calculated and horoscope 
25B8:E9 EE E9 F4 chart printed out, with zodiac, sun, moon & all 
25BC:E9 EF EE : planets. Includes astrological reading, sun & moon 
25BF:C5 ED F@ F4 676 MSG4 ASC ‘Empty string’ sign, ascendant, conjunctions & oppositions plus 
pe : es Bed ce a astronomical table. $24.95 
25CB: 25CB 677 MSG5 EQU BIO-DATA—Calculates Biorhythms for any 
25CB: 25CB 678 LAST EQU * time period you specify and displays on screen or to 
25CB: 679 :ype of variable (8-3) printer. For your birthdate gives celestial longitude of 
257D: 662 : real,string, funct, int sun and your astrological sign. Determines Julian Day 
257D: @8@@2 663 NXTARRY DS 2 :Beginning of array #, days since birth & day of week for birth. —_— $19.95 
257F: 664 ; after the current one es ; i ing for 
257F: 9881 665 DIM ps1 ;Number of dimensions Pee rconreee ae Sees Se me 
2580: 666 . RQ2a ray . floppy (3000/400 for Apple). Multiple subjects 
2580: 881 667 DIMPTR DS 1 ‘Pointer to pri nt size & authors, call #, title, publisher, etc., plus fields to 
2581: 668 ; of each dimension customize. Print 3X5 index cards & reports in various 
2581:AB A4 AB AS 669 VARSYMB ASC. $ %. ;Symbols for formats. Sort & retrieve data by any field. Fast & easy 
2585: 678 the four variable types to use. $49.95 
2585:87 C4 C9 D3 671 CMD STR “DISPLAY' 
2589:D8 CC Cl D9 CATMAN—Catalog your books, records, 
258D:D5 EE El E2 672 MSG® ASC ‘Unable to read the file ' tapes with ease. Store author, title and subject for 
2591:EC ES AG F4 to 3000 items per disk (1500 Apple). Use search 
2595:EF A@ F2 ES tions to get listings on screen or printer. Your 
2599:E1 E4 A® F4 choice if full power of Supercat not needed. $19.95 
peace ee ie ASTROSTELL—Learn the constellations 
25A5 Ag BD AS 673 MSG1 ASC .oA8 using your computer, all 88 included. Four levels of 
‘ San star brightness simulate sky on screen. Gives star 
25A8 : ars es ae Ag 674 MSG2 ASC : = A Beata : hames, positions of galaxies, nebula, etc.. plus lore 
eae : eS > EF ee 675 MSG3 ASC Function definition & observing tips. Views for your date, time, location. 
i 80 col. screen. Get ready for Halley’s' $29.95 
25B4:A8 E4 ES E6 z 
25B8:E9 EE E9 F4 HEADLINER—Print banners and signs on 
25BC:E9 EF EE any 80 or 132 column printer in letters up to 13" high 
25BF:C5 ED F@ F4 676 MSG4 ASC ‘Empty string’ (smaller sizes, too). Any length headline. Great for 
25C3:F9 A® F3 F4 parties, kids. offices, stores. Get your message across! 
25C7:F2 E9 EE £7 $19.95 
25CB: 25CB 677 MSG5 EQU « FREE CATALOG OF OTHER SOFTWARE 
25CB: 25CB 678 LAST EQU * CALL OR WRITE WEMBER 
25CB: 679 : 
END OF LISTING 1 ORDER TODAY! xe”, 
KEY PERFECT 5.9 185721A8 2238 - 227F 2B88 By phone or mail. Check, M.O., credit card (# & Expir. 
RUN ON B678BC7D 2288 - 22CF 2AQF Date) Add $2 shipping ($4 overseas). PA add 6%. Give 
DISPLAY 7AE85E1D 22D@ - 231F 2769 computer type. Join our thousands of satisfied customers 
54D9FE72 2328 - 236F 299D in 50 states and more than 40 countries, including homes, 
CODE-5.2 ADDR# - ADDR# CODE-4.8] C1139482 2370 - 23BF 2932 businesses, schools, & governments. Fast shipment! 
PSUS SSNS OD en SRS SE) RRS ES is istics, 6FC52FBB 23C@ - 240F 2AE9 
1CB5852D 2088 - 204F 2750 821A8485 2418 - 245F 2711 ZEPHYR SERVICES 
E661E459 2058 - 209F 2766 | 3156FEFO 2468 - 24AF 29EA 3 == 
936EC55D 28AB - 2BEF 2901 | 4113E97D 2488 - 24FF 2615 ZN\ 06'S, Homewsod Dept.2 
C6CA3@35 20F@ - 213F 2886 | SD8QDEE8 2508 - 254F 24E7 Pittsburgh, PA 15208 
7E74B548 2148 - 218F 2321 | A7FB1399 2558 - 259F 2AF3 412-247-5915 : 
954BD459 2198 - 21DF 21C3 EC3AD912 25A8 25CA 164F 
C3BEA3A1  21E0 - 222F 25C3 | 24841BZE = PROGRAM TOTAL = a5cB || ORDER BY PHONE 9AM-9PM, MON- SAT 
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Reviewed by John DiPrete 
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Baron 

With $35,000 in hand, could you become a real estate baron? 
This simulation challenges you to master the world of buying and 
selling land. In Baron, you negotiate second mortgages, put together 
creative financing, buy residential and business properties and specu- 
late on land. The 37-page manual offers directions on how to play, 
a general introduction to real estate, helpful hints, a quick refer- 
ence section, loading instructions, a glossary and an index. 

You start the game with $35,000 in seed money. If you earn 
$1,000,000 in five years (accelerated in computer time), you achieve 
Baron status. Other ranks to shoot for are Investor ($100,000) and 
Broker ($250,000). You can save and restore a game or generate 
a new game each time you play, and record up to 14 previous scores. 
You view newspaper headlines and study charts to make invest- 
ment decisions, and advance the date at monthly intervals. Monthly 
readouts over the five-year span reveal your capital investment 
outcome. 

Success in the world of Baron may not guarantee similar success 
in the real world, but the game’s portrayal of real estate transac- 
tions should give future investors a sense of what goes on. I found 
the experience of investing to be fascinating, but I don’t recom- 
mend the program for the mathematically squeamish. You must 
be able to foresee trends, stay calm and patient, and master an abun- 
dance of raw data. It takes plenty of concentrated effort to master 
Baron. 

The principal task of Baron — reading and comparing a wealth 


John DiPrete, 45 Vale Ave., Cranston, RI 02910 


a a a rg 


88 January 1986 © Nibble Magazine 


of financial data on many different charts — requires selecting from 
various menus, zooming in to a screen to view a chart, switching 
to another screen, selecting another chart to study and so on. The 
program responds to your keyboard input promptly, making elab- 
orate cross-checking of information both easy and convenient. 

I recommend this game to professional people or business stu- 
dents who are serious, painstaking and love to work for their fun. 


Baron, Blue Chip Software, 6740 Eton Ave., Canoga Park, CA 
91303. Type of game: Real estate simulation. Originality: Above 
average. Input: Keyboard. Price: $39.95. 


e 
I, Damiano 

The time and place: fourteenth century Europe. The premise: 
You are a wizard in search of the Sacred Stone. It has the power 
to ward off the evil Pardo, whose armies threaten to ravage your 
home city of Partestrada. 

As in most typical adventure games, you must solve a variety 
of problems to achieve your goal. You type in commands, and the 
computer screen reveals the outcomes of your decisions in both text 
and graphics. The pictures and narration appear side by side, with 
the graphics occupying about a third of the screen. (By the way, 
the screen illustrations depicted on the program package are propor- 
tionately larger than the actual screen displays.) The colorful screen 
imagery is adequate, but generally fuzzy looking. The text offers 
a vivid description of events and scenarios, but tends, at times, to 
be verbose. 

Since you die quite easily in this game, I found the save-and- 
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restore feature especially useful. Typing SAVE at frequent inter- 
vals during your adventures allows you to reenter at an advanced 
point in the story, should you be suddenly struck down. 

Based on the fantasy trilogy written by R.A. MacAvoy, the adven- 
ture includes several characters besides Damiano — the witch, 
Saara; an archangel named Raphael; your faithful mutt, Macchiata; 
and Beelzebub. The object of the game is to achieve your goal 
through peaceful means. If your actions are too evil or aggressive, 
your good-evil soul index (displayed on the screen) will reflect this. 
Alas, if you behave too badly, the Evil One may claim you! In this 
manner, I, Damiano tends to discourage you from doing wrong 
— a nice touch. 

Nevertheless, the satanic elements in this adventure (Lucifer, him- 
self, plays a dominant role) will be unwelcome to the growing 
number of critics of games like Dungeons and Dragons. In addi- 
tion, I’m sure that many who play this game will object to pas- 
sages like the text that describes creatures that ‘‘drink blood through 
the corpses’ mouths.”’ 

I have other reservations about this program. The program often 
prints identical responses to the player’s separate, dissimilar actions. 
As a result, illogical events occur. For instance, when I met the 
hut keeper and he asked me who I was, I told him. Later, I punched 
him, and he knocked me out. As I awoke and tried to leave, he 
again asked me who I was. Was he forgetful? A nerd? Or what? 

Better games of this type exist. I generally prefer picture-and- 
text adventures to text-only formats, but found I, Damiano weak 
in both areas. Its imagery is compressed and fuzzy, and its text 
is illogical and occasionally gruesome. I'd rate this one a C, at best. 


I, Damiano, Bantam Software, 666 Fifth Ave., New York, NY 10103. 


hether you like arcade action, educational fun, or stimulating simulations, 
you’ll appreciate these capsule reviews of seven new games. 
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USER VIEWS 
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Type of game: Adventure. Originality: Below average. Input: Key- 
board. Price: $39.95. 


Station Five 

Station Five consists of four different arcade scenarios. Faced 
with a meteor storm, you must direct your robot, Hoofer, to save 
your lunar station by completing four separate tasks: beefing up 
the nuclear generators, building transmission towers, transporting 
you to the Orbiting Relay Station and supplying power to the Earth. 
You play against the computer at three difficulty levels using the 
joystick or keyboard to control Hoofer. (I preferred joystick control.) 

In the first scenario, you move Hoofer on a grid of 32 squares, 
jumping to avoid falling meteors and tossing dead meteors into a 
slot to empower the particle shield. Hoofer must open and close 
vents to keep your reactors operating at peak efficiency — if too 
many are closed at one time, you blow up! The second scenario 
is played on another grid in a dodge-and-gather mission. In this 
scene, Hoofer must collect hammers (an act that automatically erects 
the transmission towers in the background), while simultaneously 
eluding ‘“‘homers’’ and neutralizers. 

In the third scenario, the pattern of jumping movement (on another 
32-square grid) resembles Q-Bert’s movement in the arcade game 
of the same name. Hoofer must jump on each Off switch to acti- 
vate the transporter. But jumping on the On switches turns them 
off! It’s an odd, invigorating setup. In the last scenario, Hoofer 
must collect spare parts and float or bounce toward various space 
platforms, while avoiding fast-moving, free-floating hazards. The 
arcade game Joust immediately jumps to mind. 
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To sum up: the detailed graphics and animation in these four- 
games-in-one make an interesting, fast-paced arcade experience. 
As for its novelty, you’ve already seen similar action in games like 
Donkey Kong, Q-Bert, Joust and others. Station Five continues a 
successful (though somewhat fading) tradition. 


Station Five, MicroLab, Inc., 2699 Skokie Valley Rd., Highland 
Park, IL 60035. Type of game: Arcade. Originality: Moderate. 
Input: Joystick or keyboard. Price: $20.00. 


Wishbringer 


Interactive fiction, the relatively recent concept of involving par- 
ticipants directly in the plot of a story, has mushroomed into a grow- 
ing number of books, games and computer programs. Wishbringer, 
another adventure game in the Infocom series of interactive fic- 
tion, is on a par with other Infocom classics such as the Zork series, 
Suspended, Starcross, Sorcerer and The Hitchhiker’s Guide to the 
Galaxy. 

The program responds to your keyboard commands. Like other 
Infocom adventure games, Wishbringer has a full-sentence parser. 
It interprets your keyboard commands with a vocabulary exceeding 
1,000 words. 

You start as a postal clerk on a simple errand, then find yourself 
in a world of magic, mayhem and mystery. To find a lost cat, you 
must solve puzzles, hoodwink creepies and figure out the best paths. 
*Tain’t easy! Patience, resolve and cleverness are essential. 

One key to victory is in manipulating objects you find along your 
journey. You must decide what to take and what to leave behind. 
One fabulous little item, the Wishing-stone, enables you to cast spells 
(under proper conditions) for such things as good fortune, seeing 
ahead, camouflage, escape — and even rain. Packaged with the 
game disk is a real Wishing-stone, a small white rock that glows 


in the dark. Nice touch, Infocom people. 

You may want to play this adventure game with a friend since 
two heads may be necessary to solve some of the knottier dilemmas. 
The game may take several days or weeks to solve, and you can 
save a game in progress on disk. 


Wishbringer, Infocom, Inc. , 125 Cambridge Park Dr., Cambridge, 
MA 02140. Type of game: Interactive fiction (fantasy), introduc- 
tory level. Originality: Moderate. Input: Keyboard. Price: $39.95. 


Felony! 

The graphics, hint booklet, crime manual, and other parapher- 
nalia associated with Felony! resemble another fine mystery game 
from CBS Software, Murder by the Dozen (reviewed in Vol. 5/No. 
10). 

You must solve a crime by traveling around, interviewing wit- 
nesses and suspects, hunting for clues, taking notes and forming 
conclusions. Collecting raw data and tying it together isn’t easy 
— but it’s fun! You must use logic and deduction to form hypotheses 
and test them. 

Up to four people can play. The player who completes his or 
her investigatory task quickest is awarded the next turn. When the 
case has been solved, players are awarded sleuth ratings. There 
are 12 ratings, ranging from Clairvoyant Cop to Total Turkey. 
Felony! includes 12 crime cases, all at the same level of complexity. 

The way both Felony! and its companion game, Murder by the 
Dozen, are played resembles the board classic, Clue!, except that 
playing on a computer greatly enhances the enjoyment. The key 
to winning? Take copious notes, rely on your reasoning powers, 
and most vital of all, consult the lab frequently for analyses of the 
physical evidence you’ve gathered. 

If you’d like to be Lieutenant Columbo, temporarily at least, buy 
Felony! 


NO ONE EVER SAID TYPING IN 
MACHINE LANGUAGE PROGRAMS 
WAS GOING TO BE EASY... 


TIL NOW! 


NIBBLE LISTS 


From time to time NIBBLE 
Magazine makes its subscriber 
mailing list available to reputable 
software and hardware manufac- 
turers who wish to provide our 
readers with flyers, catalogs or 
other material of interest. All 


You want the speed of machine language. 

But the problem with entering long columns of 
machine code has always been, you make one 
mistake and you may have to go back and retype the 
WHOLE thing. 

Now thanks to the Nibble Machine Language 
Editor (MLE) you can use word processing methods 
to enter and edit your programs! It’s a cinch to 
operate! 

Mistakes and missing codes are no longer a 
problem—MLE lets you go back and insert the miss- 
ing bytes. To edit mistyped bytes simply move the 
cursor over the incorrect characters and retype them. 

And, of course, if you accidentally insert extra 
code, MLE lets you delete it while the rest of the 
program shifts to fill the gap. 

The Nibble Machine Language editor. You won’t / 
find anything else like it. Anywhere! o'%. 

To order your Machine Language Editor call (617) 371- 1660. 

And get the speed—not the hassle!—of machine language. 


$29.95 


USS. residents add $1.50 shipping/handling (outside U.S. add $2.50 shipping/handling). 


Mass. residents add 5% sales tax. Payable in U.S. funds only. 
Nibble 45 winthrop St., Concord, MA 01742 (617) 371-1660 
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mailings are evaluated by 
NIBBLE Magazine to ensure the 
integrity and suitability of the 
material. Our policy forbids tele- 
phone or other direct solicitation 


_ by these firms, but does release 


your NIBBLE mailing label to 
them for their one-time use. 
If you would prefer not to re- 
ceive these mailings please send 
us a recent mailing label from 
the front of your magazine or 
copy the label exactly as it ap- 


pears. Please send the label with 


a brief note directing us not to 
make your name available, and 
we will code your name for 
exclusion. 


Felony!, CBS Software, One Fawcett Pl., Greenwich, CT 06836. 
Type of game: Mystery whodunit. Originality: Moderate. Input: Key- 
board. Price: $24.95. 


SunDog 


The outstanding graphics in this adventure game deserve galac- 
tic applause. Sharp, realistic pictures of space ship features, aerial 
and ground views, and cities and planet systems, along with excel- 
lent close-up views, give SunDog a very sophisticated look. 

At the start of each game, you must choose character traits for 
your hero: varying portions of intelligence, charisma, luck, strength 
and dexterity. Then, after setting off aboard your star freighter, 
you must eventually build a colony, locate frozen colonists, shoot 
down space hazards, trade and bargain for goods, and much more. 
You have a choice of wide-ranging scenarios, each with a differ- 
ent setup, rules and goals. You play against the Apple, and can 
save up to four games in progress on disk. 

This isn’t just another adventure game. Perhaps SunDog’s finest 
feature is the number of different perspectives offered during the 
game. A player must employ a variety of distinct, creative coping 
skills to succeed. You can assume the role of navigator, piloting 
your ship and fighting off other ships; you can play a shoot-’em- 
up game on the ground or in space; you can become a financial 
investor and wheeler-dealer — and best of all, you can solve 
problems. Exciting and diverse elements make this a fantastic 
action/strategy adventure. 


SunDog, FTL Games, 7907 Ostrow St., Suite F, San Diego, CA 
92111. Type of game: Adventure. Originality: Moderate. Input: 


Two-button joystick. Price: $39.95. 


Willy Byte in the Digital Dimension 


Willy Byte in the Digital Dimension is an instructional arcade 
game that guides you through the major parts of your computer: 
the central processing unit, keyboard, RAM, disk drive, power 
source and clock. During the colorful journey, you learn about such 
concepts as flowcharting and how the computer works. 

Using a joystick or the keyboard, you control the character Willy 
Byte, moving him in four directions and making him jump, pick 
up or discard a tool, and stop. Willy must perform several duties 
while avoiding the hazards of the evil Hex Luthor. Each new sec- 
tion offers a different scenario, with novel tasks and dangers. 

The game features good graphics and nice animation, but jump- 
ing around obstacles is nothing new for the arcade veteran. You 
play against the Apple, and the difficulty level depends on the length 
of your initial message, which you must send through the various 
sections. 

The emphasis on learning turns this game into hard work. The 
teaching approach seems contrived — as if to spoil one’s fun. Car- 
toon characters can be effective aids in teaching basic concepts like 
the alphabet (a good example is the Charlie Brown gang in the 
Peanuts learning series from Random House Software). However, 
the Willy Byte character seems totally incongruous for introduc- 
ing concepts like the relationship between an ASCII character, its 
hexadecimal code and its binary representation. The sprite-like Willy 
Byte doesn’t make the material easier to digest. Quite simply, Willy 
just gets in the way. 


Willy Byte in the Digital Dimension, Data Trek Inc., 621 Second 
St., Encinitas, CA 92024. Type of game: Instructional arcade. Origi- 
nality: Moderate. Input: Joystick or keyboard. Price: $39.95. 
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We Make Measurement And Control Easy! 


12 BIT, 16 CHANNEL, 
PROGRAMMABLE GAIN A/D 
All new 1984 design incorporates the 
latest in state-of-art ILC. technologies. 
Complete 12 bit A/D converter, withan 
accuracy of 0.02%! 


16 single ended channels (single ended 
means that your signals are measured 
against the Apple’s GND.) or 8 
differential channels. Most all the 
signals you will measure are single 
ended. 

9 software programmable full scale 
ranges, any of the 16 channels can have 
any range at any time. Under program 
control, you can select any of the 
following ranges: +10 volts, +5V, 
+2.5V, +1.0V, +500MV, +250MV, 
+100MV, +50MY, or t+25MV. 

Very fast conversion (25 micro seconds). 
Analog input resistance greater than 
1,000,000 ohms. 


Laser-trimmed scaling resistors. 

Low power consumption through the 
use of CMOS devices. 

The user connector has +12 and -12 
volts on it so you can power your 
sensors. 


@ Only elementary programming is 
required to use the A/D. 

@ The entire system is on one standard 
size plug in card that fits neatly inside 
the Apple. 

@ System includes sample programs on 


disk: PRICE $319 
A few applications may include the moni- 
toring of @ flow @ temperature @ humidi- 
ty @ wind speed @ wind direction @ light 
intensity @ pressure @ RPM @ soil mois- 
ture and many more. 


A/D & D/A 
A/D & D/A Features: 
Single PC card 
8 channels A/D 
8 channels D/A 
Superfast conversion time 
Very easy programming 
Many analog ranges 
Manual contains sample applications 


A/D SPECIFICATIONS 
0.3% accuracy 
On-board memory 
Fast conversion (.078 MS per channel) 
A/D process totally transparent to 
Apple (looks like memory) 
User programmable input ranges are 
0 to 10 voits, 0 to 5, —5 to +5, —2.5 
to +2.5, —5 to0, —10 to 0. 


The A/D process takes place on a continuous, 


channel sequencing basis. Data is automatic- 
ally transferred to its proper location in the 
on-board RAM. No A/D converter could be 
easier to use. 
D/A SPECIFICATIONS 

0.3% accuracy 

On-board memory 

On-board output buffer amps can 

drive 5 MA 

D/A process is totally transparent to 

the Apple (just poke the data) 

Fast conversion (.003 MS per channel) 

User programmable output ranges are 

0 to 5 volts and 0 to 10 volts 
The D/A section contains 8 digital to analog 
converters, with output buffer amplifiers and 
all interface togic on a single card, On-card 
latches are provided for each of the eight 
D/A converters. No D/A converter could be 
easier to use. The on-board amplifiers are 
laser-trimmed during manufacture, thereby 
eliminating any requirement for off-set 


nulling. PRICE $199 


SIGNAL CONDITIONER 


Our 8 channel signal conditioner is designed for use with both our A/D converters. This 
board incorporates 8 F.E.T. op-amps, which allow almost any gain or offset. For example, 
an input signal that varies from 2.00 to 2.15 volts or a signa! that varies from 0 to 50 
mV can easily be converted to 0-10V output for the A/D. 


The signal conditioner’s outputs are on a high quality 16 pin gold I.C. socket that 
matches the one on the A/D’s so a simple ribbon cable connects the two. The signal 
conditioner can be powered by your Apple or from an external supply. 


FEATURES 
@ 4.5" square for standard card cage and 4 mounting holes for standard mounting. The 


signal conditioner does not plug into the Apple, it can be located up to % mile away from 
the A/D. 


22 pin .156 spacing edge card input connector (extra connectors are easily available ie. 
Radio Shack). 


Large bread board area. 


Full detailed schematic included. 


PRICE $79 


1/0 32 


Provides 4, 8-Bit programmable I/O 
Ports 


@ Your inputs can be anything from 
high speed logic to simple switches 


Any of the 4 ports can be pro- 
grammed as an input or an output 
port 


@ Programming is made very easy by 
powerful on-board firmware 


@ The I/O 32 is your best choice for any 


@ All I/O lines are TTL (0-5 voit) contro} application 


compatible 


The 1/O manual includes many programs for inputs and outputs. 


Some applications include: 
Burglar alarm, direction sensing, use with relays to turn on lights, sound buzzers, start 
motors, contro! tape recorders and printers, use with digital joystick. 


PRICE $89 


Please see our other full page ad in this magazine for information on Applied Engineering's Timemaster Clock Card and other products for the Apple. 
Our boards are far superior to most of the consumer electronics made today. All |.C.’s are in high quality sockets with mil-spec. components used throughout. P.C. boards are glass-epoxy 
with gold contacts. Made in America to be the best in the world. All products compatible with Apple il and //e. 


Applied Engineering's products are fully tested with complete documentation and available for immediate delivery. All products are guaranteed with a no hassle three year warranty. 


Texas Residents Add 5% Sales Tax 


Add $10.00 If Outside U.S.A. 


Send Check or Money Order to: 
APPLIED ENGINEERING 
P.O. Box 798 
Carrollton, TX 75006 


Cail (214)241-6060 
9am. to 11 p.m. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 
No extra charge for credit cards 


January 1986 © Nibble Magazine 


91 


ryegat 
yn 
ty pag" 


= Therefore 


ictionary” 
SENS es utiliz ' mm House DI less 
mistakes, ne official an works ge tire! 
derived from! mar, it 

Gramm : 


is available for $99.95; Sensibie 


Sensible Grammar™ _ 
$125.00)n either the "IV" or ProDOS version; Sensible Technical Dic- . 
r™ for $59.95: ical Dictionary™ for $99.95; and __ 
3 ie . The three specialized rato ara : 
Sensible Spelier. ———— 
noni computers. 


Mino Suite 229, Srmnghan, MI 48011 i acceegs 


PART V 


IRST COUSINS 
ONCE REMOVED 
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NIBBLING AT ASSEMBLY LANGUAGE 
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ANUOUOUNNRERDDOOUAAOOUGODORODUGEEEDOOUAOUGUOEEEDOLAGOUEEOULEOOOUOUGEEEUOLOOOOUOEEEOLOUUUOUOUEEEOOUUOUOUOEEODOOUOOEREOEUOOOOUOOEAEOOL: 


by S. Scott Zimmerman 


earn about 


65C02 addressing modes and how to use them. Sample programs demonstrate 
implementing arrays, printing messages to the screen, using ROM routines, and 
using the ampersand vector. 


NUVOUAUADUUAAUDLONENUOUUEADUOGEGUUONUEDRAGOOEAOGOEOOGAUDNGGEUUACUOUUCCEHONAGELOOCOREUOEEOONCGUAOOONOUAOONOONAEOUONGOOUONEOOONNOOOUAOOROUUEODOOOEOOOUEOOOOEOOOGEDONOEOOOUEROOOGEOUOEGOOONEOUOGGOONONEONEHOOEGEDOGCEOONOEEUOOOGUONGEOOOEOOOOHDOGEROOOEEDOEOOODOOOORVONUEUNOEOUONEOOOUEUEOOUCOUOUCOOVOUEUTOUEOUVOOGUOTOCEOOAEUOOEOEEOOOONT 


he annual Zimmerman reunion 

brings together a large collection 

of closely-related people with a 
common goal — to bore each other. Along 
with boredom, I have the problem of trying 
to remember names. I can barely remember 
the names of my own seven children, let 
alone the names of my brother’s and sister’s 
kids, my cousins’ kids, and my aunt’s 
cousin’s daughter’s kids. 

Computer programs can be much like a 
family reunion, with long, boring lists of 
data and names of variables. Like kids at the 
reunion, variables are difficult to manage, 
and their names are easy to forget. 

But programmers know the secret to keep- 
ing track of closely-related data: arrays. 
Take, for example, the program RAIN 
.BASIC (Listing 1). Type the program in 
and SAVE it to disk with: 


SAVE RAIN.BASIC 


When you run the program, 18 raindrops 
fall from the top of the screen to the bot- 
tom. This simple program illustrates the use 
of arrays. The program keeps track of the 
locations of 18 raindrops and moves them 
down the screen, using three one- 
dimensional arrays. (Alternatively, the pro- 


by S. Scott Zimmerman, 1129 East 470 


North, Orem, UT 84057. The programs run 
under DOS 3.3 and ProDOS. 


gram could have used one three-dimensional 
array.) 

The program initializes the XR and YR 
arrays in line 110 by reading the data found 
in line 190, and it plots the raindrops in their 
initial locations. Lines 120-170 form the 
main program loop, in which raindrops 
move down the screen. The program uses 
the RF (rain flag) array to determine if a 
raindrop is still on the screen. Once a rain- 
drop falls below position YR = 159 (see line 
150), the program erases it from the screen 
and decrements the raindrop counter, N. 
The program ends when N reaches zero, 
indicating that no raindrops remain on the 
screen. 


ASSEMBLY LANGUAGE ARRAYS 

Even with little programming experience, 
you can grasp the usefulness of arrays by 
analyzing RAIN.BASIC. Arrays in machine 
language are just as important. 

To illustrate arrays in machine language, 
I have written RAIN.ML, the machine lan- 
guage version of RAIN.BASIC (Listing 2). 
Key the source program into your 
assembler, assemble the program, and save 
the object code as RAIN.ML. To run the 
program, type: 


BRUN RAIN.ML 
or type: 
BLOAD RAIN.ML 


followed by: 
CALL 16384 


I will explain the program in detail later, 
but first, let’s look at lines 40-47, in which 
the array RAINFLAG is initialized to zero. 
Initialization of arrays is often unnecessary 
in BASIC, since all variables, including 
arrays, are automatically set to zero when 
you RUN a program. But the contents of the 
region of memory designated for the RAIN- 
FLAG array in the machine language pro- 
gram are unknown, and therefore you must 
initialize the array values explicitly. 

To initialize the array RF( ) to zero in 
BASIC, you would write: 


FOR I=1 TO N: RF(I) = 0: NEXT I 


where N is the number of elements in the 
array and I is the index. RAIN.ML, on the 
other hand, uses the X-Register as the index. 
The program sets the X-Register to NUM- 
DOTS in line 43. In Part IV of this series 
(Vol. 6/No. 11) machine language programs 
were used to execute loops in reverse order, 
starting at the highest index value (in this 
case, NUMDOTS) and proceeding down to 
zero. In line 44, the program sets the Accu- 
mulator to zero, and the loop actually begins 
in line 45. 

Here is the key point: In line 45 the com- 
mand STA RAINFLAG,X stores the con- 
tents of the Accumulator into RAINFLAG 
plus X, not into RAINFLAG ($40DB). If 
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the X-Register happens to contain two, for 
example, then RAINFLAG,X represents the 
address $40DB +2, or $40DD. In this case, 
the X-Register is an index; in fact, the X- 
Register is often called the X index register. 
The operand, RAINFLAG,X, specifies the 
memory location of element X of the RAIN- 
FLAG array. 


ADDRESSING MODES 

The command STA RAINFLAG,X is an 
example of the absolute indexed addressing 
mode. An addressing mode is the way that 
an instruction (such as LDA, STA, LDY, 
or STY) addresses memory. 

If you have followed the Nibbling at 
Assembly Language series, you have 
already used several different addressing 
modes. Consider the following uses of the 
LDA (Load Accumulator) instructions: 


LDA #10 ;Load value 10 ($0A) into Accumulator 
LDA YVAL ;Load value found at YVAL 


The command LDA #10 is an example of 
the immediate addressing mode. The Accu- 
mulator is loaded with the byte value (in this 
case 10 or $0A), which immediately follows 
the opcode in memory. The object code for 
LDA #10 is A9 OA. 

The command LDA YVAL (see line 86 
of Listing 2) is an example of the absolute 
addressing mode. The Accumulator is 
loaded with the byte value currently at 
address YVAL. Since the address of YVAL 
is $40B6 in RAIN.ML, LDA YVAL loads 
the Accumulator with the byte value cur- 
rently stored at $40B6. The object code for 
LDA YVAL is AD B6 40. This is called the 
absolute addressing mode because the oper- 
and address is used without modification. 
As you will see with other addressing 
modes, the operand may indicate a relative 
address, or it may indicate where to find 
another address. 

Table 1 lists the addressing modes avail- 
able with the 65C02 microprocessor (used 
in the //c and enhanced //e). Except where 
noted, the syntax is the same for the 6502 
microprocessor (used in the II Plus and //e). 
I will not discuss all of these addressing 
modes at this time, but will cover them as 
needed throughout the series. 

Not all of these addressing modes can be 
used by all of the opcodes. For instance, 
LDA can use immediate, absolute, zero 
page, absolute indexed by X or Y, zero page 
indexed by X or Y, indirect indexed, 
indexed indirect and zero page indirect 
addressing modes, while BNE uses only 
relative addressing mode. For a complete 
list of opcodes with their allowed address- 
ing modes, consult your Apple // Reference 
Manual. 


COMPARING THE LISTINGS 

By comparing RAIN.BASIC (Listing 1) 
and RAIN.ML (Listing 2), you can readily 
see some of the differences between BASIC 
and assembly language. Although the assem- 


bly source code listing is much longer, the 
object code (the machine language program) 
is only 273 bytes, compared to 347 bytes 
for the BASIC program (excluding the REM 
statements in lines 10-80). In addition, 
RAIN.BASIC uses 20 bytes for simple vari- 
ables and 307 bytes for arrays, whereas the 
machine language program uses no addi- 
tional bytes for variables and arrays. The 
total memory requirements are 674 bytes for 
the BASIC program and 273 bytes for the 
machine language program. 

RAIN.ML not only uses less memory, 
but, as you would expect, it is much faster: 
RAIN.BASIC takes 93.7 seconds to run, 
while RAIN.ML takes only 2.3 seconds. 
Although programming in assembly lan- 
guage is more difficult than in BASIC, your 
efforts are rewarded by faster, more com- 
pact programs. 


HOW RAIN.ML WORKS 

RAIN.ML demonstrates the use of arrays 
and several addressing modes. The array 
containing the initial X,Y coordinate values 
of raindrops is called XYSTART (lines 128- 
131 of Listing 2). Lines 51-70 plot the rain- 
drops in their initial locations on the Hi-Res 
screen (analogous to line 140 of RAIN 
.BASIC). Line 51 initializes the loop index 
to zero, using the immediate addressing 
mode to load the X-Register. The array 
index, which in this case is different from 
the loop index, is set to zero in line 52, again 
using the immediate addressing mode. 

The loop that plots the raindrops starts in 
line 53. The values of the loop and array 
indexes are stored in locations LOOPINDX 
and ARRINDX, using the absolute address- 
ing mode. The initial X-coordinate of the 
current raindrop is loaded into the Accumu- 
lator in line 55, using the absolute indexed 
addressing mode. For example, when the 
loop index is zero, element 0 of the 


XYSTART array, located at $40ED, is 
accessed; when the loop index is one, ele- 
ment | of the XYSTART array, located at 
$40EE, is accessed; and so forth. 

Note that in assembly language, you 
nearly always use the zeroth element of an 
array. Even though element 0 in BASIC and 
Pascal arrays nearly always exists, it is sel-. 
dom actually used. 

Line 56 of RAIN.ML stores the X- 
coordinate from the XYSTART array into 
the XRAIN array, whose index is located 
in the Y-Register. This is another example 
of the absolute indexed addressing mode, but 
this time using the Y-Register as the index. 

Line 57 saves the X-coordinate in the vari- 
able XVAL, using the absolute addressing 
mode. The INX instruction in line 58 incre- 
ments the X-Register (which contains the 
loop index), using the implied addressing 
mode. As the name indicates, the operand 
(X, in this case) is implied in the instruc- 
tion itself. 

Line 59 saves the new X-value in 
LOOPINDX, using the absolute addressing 
mode. Lines 60 and 61 transfer the initial 
Y-coordinate value from the XYSTART 
array to the YRAIN array, using absolute 
indexed addressing modes. 

Line 62 uses the absolute addressing mode 
to load the X-Register with XVAL, and line 
63 uses the immediate addressing mode to 
load the Y-Register with zero. Line 64 uses 
the Applesoft ROM routine, HPLOT, to plot 
a point on the Hi-Res screen at the location 
indicated by the contents of the Accumulator 
and the X and Y Registers. I will explain 
this in more detail later in the USING ROM 
section. 

After plotting a dot (line 64), the program 
restores the loop index and the array index 
into the X and Y Registers, respectively (see 
lines 65 and 66). Lines 67 and 68 incre- 
ment these two indexes, and then line 69 
checks to see if the Y-Register (the array 
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Apple II + /Ile/IIc 


Nine reasons why the 
MicroSPARC Assembler 
is a red-hot bestseller. 


2 POWER. Power and speed 


make this assembler ideal for the 
more advanced user, whether you're 
writing a quick routine, or 
considering a full-scale software 
development. You'll never outgrow it! 


1 EASE OF USE. Now even a 


beginner can enjoy all the benefits of 
programming in Assembly language 
— with this menu-driven Macro 
Assembler/Editor. No commands to 
memorize! Even help screens for 
quick and easy reference. 


UPGRADE OFFER * 


Current owners of the DOS 33 
version of the Assembler (and 
MacroSoft) can receive the ProDOS 
version(s) by sending $19.95 for the 
Assembler alone, or $29.95 for the 
ProDOS Assembler and Macrosoft, 
along with the cover(s) of the original 
documentation manual(s). 

ProDOS versions are completely 
compatible with all existing 
Assembler and MacroSoft programs. 
New and expanded documentation 
is included in your upgrade. 


g PRICE. We've saved the best for 


last: The Assembler sells for just 
$49.95, making it the best assembler 
buy available. Anywhere! 


users have helped 


Lexicom. All for your Apple! 


publisher of programming aids for the Apple. : 
MicroSPARC also brings you GALE (Global Applesoft 
Line Editor), Ampersoft, Key Perfect, Teletext and 


3 MacroSoft. consider the 
purchase of the MicroSPARC 
Assembler's companion program, 
MacroSoft. And write Applesoft-like 
programs which are then converted 
into machine language by the 
Assembler — like magic! 


4 ADAPTABILITY. the 


Assembler automatically adapts to 
whatever Apple you have, whether 
it's 40 or 80 column display, upper 
or lower case, or extended memory. 


5 ADVANCED FEATURES. the 


Assembler comes complete with a 
powerful editor with features like 
Global Search and Replace, plus a 
library of subroutines. A collection of 
Macro commands even simulates 
the commands of other assemblers, 
like Applesoft Toolkit. 


6 SUPERIOR 
DOCUMEN TATION. Learn the ins 


and outs of using the MicroSPARC 
Assembler with a concise, easy-to- 
follow manual. A minimum of jargon, 
and lots of examples to make sure 
you understand. 


7 SUPPORT. Purchase the 
Assembler and get a priceless extra 
— the MicroSPARC team of 
technical experts, FREE! You'll be 
just a phone call or letter away from 
help and advice, should you need 
assistance. 


To order, fill out the attached coupon or call (617) 371-1660. Be sure to specify the DOS 3.3 or the ProDOS version. 


| want the Assembler! 
Here’s my $49.95. 


| want the Assembler 
and MacroSotft! 
Here’s my $99.95 


PLEASE CHOOSE ONE: 
DOS 3.3 Version 
ProDOS Version 


* UPGRADE OFFER 
| want to upgrade my current DOS 3.3 version(s) to 
ProDOS. I've enclosed the cover page(s) from my original 
documentation manual(s). 


$19.95 / Assembler 
$29.95 / Assembler & MacroSoft 


(POSTPAID) 


Visa 


Check, M.O. (Mass. residents add 5% sales tax) 


Name MasterCard 
Address Charge Card # 
City State Zip Signature 


45 Winthrop St., Concord, MA 01742 
CIRCLE NUMBER 42 


Expiration Date 


Payable in U.S. funds only. 


Tel. # 


Copyright © 1985 by MicroSPARC Inc 
Apple is a registered trademark of Apple Computer Inc. 


i T TOS 


That's right! More than $500 
worth of programs for your 
Home, Business, Education and 
Entertainment. NIBBLE 
EXPRESS IV is an Anthology of 
the Major Articles and 
Programs appearing in Volume 
4 (1983) of NIBBLE Magazine. 


NIBBLE EXPRESS IV contains 
up-to-date enhancements and 
complete program listings with 
comprehensive articles that 
show: 


What each program does. 


How to type them into your 
Apple, ACE, or other 
Applesoft-compatible 


computer. 
How to use them. 


How to customize them to 
your own needs. 


Here's a representative sample 
of the 50 programs and articles: 


The Investor—Stock Tracking, 
Reporting, and Graphics. 

The Librarian—Au tomatic 
control of your Disk Libraries. 
The Designer/Illustrator—Art 
DesigniCreation and 

Composition. 


A 


sram-BOoOK for 


RAM Manager—Tick away up 
to 10 Programs in RAM Card 
Memory. 

The Programmer—Applesoft 
Preprocessor for Structured 
BASIC. 

T.U.N.E.S.—Music Composition 
and Playback. 

RAM Disk—Make a Phantom 
Disk out of your 16K RAM 
Card. 

The Nibbler—Arcade Action 
with the famous Pellet Eater. 

Math Monster—Arithmetic can 
be fun. 

Personal Appointment 
Calendar—Track events, dates, 
and meetings. 


AND THERE’S 
MORE... 


The NIBBLE EXPRESS is full 
of useful Tips ’N Techniques, 
Utilities, and other Goodies 
for getting more out of 

your Apple. 


Even if you own all 8 issues of 


NIBBLE in 1983, you'll want 


the EXPRESS IV to have 
updated program listings in one 
convenient package. It’s a 


MUST for your library. 


MIDDLE 45 winthrop, st., concord, MA 01742 
Yes | want NIBBLE EXPRESS in my library! 
Send me: 

0 Nibble Express Volume | at $14.95 each. 

CO Nibble Express Volume II at $14.95 each. 

O Nibble Express Volume Ill at $17.95 each. 

CO Nibble Express Volume IV at $17.95 each. 


0 Nibble Express Volume V at $19.95 each. 


Please add $1.75 shipping/handling per copy (outside U.S. 
add: $2.75 surface or $6.50 Air Mail per copy). Mass. resi- 
dents add 5% sales tax. Payable in U.S. funds only. 


Enclosed is my: O Check Money Order 
@ MasterCard OW VISA 


Bill my: 


Card # 


Expires 


Signature 


Name 


Street 


City 


State Zip 


Your check or money order must accompany your order to qualify. Out- 
side U.S.: Checks must be drawn on a:U.S. bank. “Apple is a registered 
trademark of Apple Computer Company. 


SS 9ST? 


index) has reached NUMDOTS, the number 
of dots. If not, line 70 makes the program 
branch back to PLOTLOOP in line 53. 

You should be able to understand the 
assembly language code in lines 74-113 of 
Listing 2. 


ALLOCATING MEMORY 

When writing a BASIC program, you sel- 
dom need to worry about how your program 
variables and arrays use memory. The 
BASIC interpreter sets up the memory loca- 
tions automatically. However, when you 
program in assembly language, you must 
specify the memory location of all variables 
and arrays. Thus, in lines 119-127 of List- 
ing 2, RAIN.ML contains statements that 
reserve regions of memory for the variables 
NUMDOTS, NDOTSON, LOOPINDX, 
and so on. For example: 


RAINFLAG DFS 18 


The command DFS is an assembler direc- 
tive (or pseudo-opcode) that tells the assem- 
bler to define storage (DFS), for example, 
to reserve 18 bytes of memory. The address 
$40DB at the start of the memory region (not 
actually included in Listing 2), becomes 
equated to the label RAINFLAG. 

If you want to initialize an array to a set 
of values in BASIC, you usually use a 
DATA statement to store the initial array 
data. In assembly language, you use an 
assembler directive or pseudo-opcode that 
lets you put numbers directly into your 
object code. One way to do this is with the 
DFC (define constant) assembler directive, 
as shown in lines 128-131 of Listing 2. 
Some assemblers use a different pseudo- 
opcode name, such as DFB (define byte) or 
DC (define constant). Read your assem- 
bler’s manual for the correct pseudo-op 
name and an explanation of how to use it. 


USING ROM ROUTINES IN 
ASSEMBLY LANGUAGE 

Your Apple’s ROM is full of wonderful 
machine language subroutines. Without 
them, most short, simple assembly language 
programs would be enormous. 

RAIN.ML makes liberal use of ROM rou- 
tines. For example, the routine to clear the 
text screen — the Applesoft HOME com- 
mand — is located in ROM at address 
$FC58. The routine to clear and initialize 
Hi-Res page | — the Applesoft HGR com- 
mand — is located in ROM at address 
$F3E2. These two routines are simple to use 
in assembly language. You just have to 
EQUate an appropriate name (e.g., HOME 
and HGR) to the address of the routine (see 
lines 19-23 in Listing 2), and then call the 
routines with a JSR (see lines 30-31). That’s 
all there is to it. 

Other ROM routines are not so simple. 
They expect to find data in certain 65C02 
registers. For example, the SETHCOL rou- 
tine sets HCOLOR for the points you sub- 
sequently plot on the Hi-Res screen. Before 


doing a JSR to SETHCOLOR (at $F6EC), 
the desired color code (0-7) must be present 
in the X-Register (see lines 32-33 in List- 
ing 2). 

A still more complicated ROM routine is 
HPLOT, found at $F457 (see lines 20, 87 
and 103 of Listing 2). HPLOT requires that 
the program specify the horizontal (or X- 
coordinate) and the vertical (or Y- 
coordinate) of the point to be plotted. This 
is actually not very difficult. 

The X-coordinate can have a value from 
0 to 279 ($00 to $117), and therefore re- 
quires two bytes. The program must load 
the low-order byte (LOB) value of the hori- 
zontal coordinate into the X-Register (line 
84 of Listing 2), and the high-order byte 
(HOB) into the Y-Register (line 85). 

Since the Y-coordinate can only have a 
value from 0 to 191 ($00 to $BF), it requires 
only one byte. The program must load the 
byte value of the vertical position into the 
Accumulator. Once the horizontal and ver- 
tical values are in the 65C02 internal regis- 
ters, the program does a JSR to HPLOT 
($F457) to turn on the desired pixel. 


ROM INFORMATION SOURCES 
Many Nibble readers have written to me 
with the question, ‘‘How do I find out what 
ROM routines are available and how do I 
learn how to use them?’’ There are five 
major sources of information about ROM: 


1. Many programs in Nibble are written in 
assembly language, and most of these 
contain Applesoft ROM or Monitor 
ROM references. An excellent way to 
learn more is to study the source code 


and read the explanations in these 
articles. More particularly, the Disas- 
sembly Lines series by Sandy Mossberg 
explains the ROM routines in depth. 
And, of course, Nibbling At Assembly 
Language will include future examples 
of ROM routines. 

2. All About Applesoft is a must for all seri- 
ous assembly language programmers. It 
is published by A.P.P.L.E. (Apple 
PugetSound Program Library Ex- 
change), 290 S.W. 43rd Street, Renton, 
WA 98055. It contains detailed explana- 
tions of many Applesoft ROM routines. 

3. Another valuable tool for assembly lan- 
guage programmers is the book Apple II 
Monitors Peeled published by Apple 
Computer, Inc., 10260 Brandley Drive, 
Cupertino, CA 95014. It contains expla- 
nations of numerous Monitor ROM rou- 
tines and shows how to access them from 
assembly language programs. 

4. Apple also publishes the Apple // Refer- 
ence Manual and Reference Manual 
Addendum: Monitor ROM Listings. If 
you have them on your bookshelf, dust 
them off and look them over! 


5. Finally, I recommend What's Where in 


the Apple by William F. Luebbert, pub- 
lished by Micro Ink, Inc., P.O. Box 
6502, Chelmsford, MA 01824. This book 
lists all the Applesoft and Monitor ROM 
routines, although the explanations of 
how to use them are often too brief to 
be of solid value. 


In addition to these resources, you may want 
to consult other texts on Apple assembly 
language. 


Nibble Light Pen, ProDOS Directory List, ProCursor, DISPLAY and pro- 

grams from Nibbling at Assembly Language V are available on diskette for 
an introductory price of $17.95 plus $1.50 shipping/handling ($2.50 outside 
the U.S.) from Nibble, 45 Winthrop St., Concord, MA 01742. Introductory 


price expires 3/31/86. 


LISTING 1: RAIN.BASIC 


18 REM x 8 koe oR RRR RR RK 
28 REM « RAIN. BASIC 

3@ REM « BY SCOTT ZIMMERMAN = 
49 REM « COPYRIGHT (C) 1986 = 


5G REM « By MICROSPARC, Inc « 


68 REM »* CONCORD, MA 1742 « 

78 REM Me He Be 0K aie oe ce oe Hee ese ake ae ale ate ake oka ok ake 

88 REM 

98 HOME : HGR : HCOLOR= 3 

199 N = 18:M = N: DIM XR(N),YR(N),RFE(N) 


11@ FOR I = 1 TO N: READ XR(1I),YR(I): HPLOT 
XR(I).YR(I): NEXT I 

12@ FOR I= 1TOM 

138 IF RF(1) THEN 178 

148 HCOLOR= @: HPLOT XR(I),YR(1I): HCOLOR= 3 

15@ YR(1) = YR(1) + 1: IF YR(I) > 159 THEN RF 
(1) = 1:N = N - 1: ON N = @ GOTO 188: GOTO 
1768 

168 HPLOT XRC(I),YR(1) 

178 NEXT I: GOTO 128 

188 TEXT : HOME : END 

198 DATA 22,@,28,18,224,5,56,3,182,24,238,17 


,218,28,112,14,196,14,148,42,154,5,168,2 
,78,18,126,16,98,4,17,19,84,21, 252,98 


END OF LISTING 1 


continued on page 99 
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COPY II PLUS 


Version 6! 


BRINGS YOU THESE PRODOS AND DOS 3.3 UTILITIES: 


® Copy files, disks, even entire subdirectories. e Alphabetize catalog. 

e Undelete ProDOS and DOS files. ¢ Convert DOS to ProDOS & vice versa 
Fast 2-pass disk copy on Apple //e, //c or Laser 128. 

° Tree display for selecting subdirectories - no need to type lengthy “prefixes”! 


BACKUP YOUR PROTECTED SOFT WARE!! 


With COPY II PLUS’ fully automatic* bit copier, simply type in the name of the program you 
want to backup and COPY II PLUS does the rest! Parameters for hundreds of programs are 
right on disk! Also includes a track editor, sector editor and HI-RES disk display. 


Supplied on a standard ProDOS diskette. Runs on Apple //, //+, //e, //c and Laser 128. Requires 
at least 64K and one or two disk drives. 


For the Security of Backups and All the Disk Utilities You’ll Ever Need... 


COPY II PLUS, Version 6!! 
ENTRAL POINT 503/244-5782 S39. 9 5 


Software, Inc. M-F, 8-5:30, W. Coast Time 
9700 SW Capitol Hwy., “100 _— CHECK. COD WELCOME plus $3 s/h ($8 overseas) 
Portland, OR 97219 = SS (Prepayment Required) 


*We update COPY II PLUS as often as needed to handle new protections; you as a registered owner 
may update at any time for $15 plus $3 s/h. 


This product ts provided for the purpose of enabling vou to make archival copies only 


CIRCLE NUMBER 43 


ENTERING MSG.PRINT 

Now let’s look at a short example show- 
ing more uses of the indirect indexed ad- 
dressing mode and new ROM routines. 
MSG.PRINT demonstrates message print- 
ing from your assembly language program. 

Key MSG.PRINT (Listing 3) into your 
assembler, assemble the program, and save 
both the source code and object code (MSG 
.PRINT) to disk. 

To execute MSG.PRINT, first make sure 
you are in 40-column mode, then BLOAD 
MSG.PRINT into your Apple, and type 
CALL 16384 from BASIC or type 4000G 
from the Monitor. MSG.PRINT clears the 
text screen and then prints two lines of text. 


HOW MSG.PRINT WORKS 

I have arbitrarily selected $4000 as the 
starting address of MSG.PRINT (see line 
15 of Listing 3). I could have selected $0300 
(the page 3 user’s space) or $9400 (near 
DOS or ProDOS) or any other free space. 

In the EQUates section of MSG.PRINT 
(lines 21-25), MSGPTR is a special kind of 
variable called a pointer. Pointers are two- 
byte zero page locations that contain a two- 
byte address in reverse byte order, LOB 
(low-order byte) first and HOB (high-order 
byte) second. For example, if the two bytes 
at MSGPTR ($00) and MSGPTR + | ($01) 
contained $30 and $40, respectively, we 
would say that MSGPTR points to the 
address $4030. 


THE SUPERPLOT TER 


pig LORDIMG ENGINEER IMS OEPOR THEN 


For use with Apple™ 
Computer Systems 


The Superplotter is a highly versatile business, 
engineering, educational, math and graphics ap- 
plications package featuring: 


Standard Bar Graphse Point and Line Graphse 
Graphics Display of any Mathematical Functions 
Least Squares Polynomial Curvefit Generations 
Keyboard Image Shape Tables and 

User Tutoriale Automatic Graphics Disk Storage 
and Recalls Data File Editors Automatic Disk 
Storage and Recall of Editor Data Files*Overlay 
Modese Graphics Screen Text Editor 


Ueddede] 


ie 


Data may be input directly or from previously 
generated data files. Comprehensive documen- 
tation is provided including printer dump instruc- 
tions and directions for accessing data bases 
created by other programs. Requires Applesoft 
and one DOS 3.3 disk drive 


$69.95 


See your local dealer for a demonstration 
or order direct from: 


Dickens Data Systems 
6065 Atlantic Boulevard Suite A 
Norcross, GA 30071 

outside Georgia: 
(800) 241-6753 ext. 503 
C.O.D., VISA, & MasterCard accepted iiseenaennem . 
Mail Orders: Add $2.50 for shipping and handling ae, ed Sie 


($5.00 outside the USA) Plot Keyboard Characters on Any 
Graphics Display Simply 


Extensive Overlay Capabilities 
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I arbitrarily selected $00 and $01 as the 
address of MSGPTR. I could have selected 
any two-byte zero page sequence that does 
not interfere with DOS or BASIC usage. 
Safe addresses for your assembly language 
programs include $00-$09, $1A-$1C and 
$1E-$1F. If you are not sure how safe a zero 
page address is, consult your Apple // Refer- 
ence Manual or What’s Where In The Apple. 

The other four symbols in the EQUates 
section are system addresses used by the 
Monitor ROM. CH is the zero page loca- 
tion that contains the horizontal position of 
the screen cursor. It uses values 0-39 ($00 
to $27) in 40-column mode or 0-79 ($00 to 
$4F) in 80-column mode. TABV is the 
Monitor routine for setting the cursor at a 
specified location on the screen. HOME is 
the Monitor routine for clearing the text 
screen and moving the cursor to the upper- 
left corner. COUT, one of the most fre- 
quently used Monitor ROM_ routines, 
outputs a character to the screen. In addi- 
tion, it handles screen scrolling and auto- 
matically updates the internal cursor values 
as each character is printed, so that the next 
character goes to the correct location. 

Now let’s go through the program itself 
to see how these Monitor ROM routines are 
used and to learn more about addressing 
modes. Line 31 clears the text screen. Lines 
32-35 demonstrate a handy sequence of 
commands that set the cursor to any loca- 
tion on the text screen. To do this, load the 


continued on page 103 


(nnn 
LISTING 2: RAIN.ML 


g 

1 Ce 
2 we uM 
3 ne RAIN.ML a 
4 te a 
5 By S. Scott Zimmerman a 
6 x * 
7 ve Copyright (c) 1986 * 
8 te by MicroSPARC. Inc * 
9 ne Concord. MA 91742 * 
18 é 
ll DA TT AR NE NE Me Ae a ae aK aCe aie ae aie a iE He ie Ie Re ne ae ale oie Re aie oe Re le ate He a Reale ake le ake se ale ake ale ok ale ake ak 
12 

13 ORG $4820 ;Put above hi-res page 
14 

15 Cc ee 
16 » EQUATES: 
17 AOI IOIOI SIO OIC OIOIGIOICICIOICROIOIOICIGICIOIGIC ICAI IOIOICA ACA OIG RO RCAC C HO HC ge 
18 

19 HGR EQU $F3E2 Basic HGR command 

28 HPLOT EQU $F457 ;Basic HPLOT command 

21 SETHCOL EQU $F6EC :Basic HCOLOR command 

22 SETTEXT EQU $FB39 ‘Basic TEXT command 

23 HOME EQU $FC58 ;Basic HOME command 

24 

25 ACCOR TORO GEOR OICTOION ORIG IOR GIO IOSSCSC TO ICHOI ACICAC IO IOI RCAC ACCC HCA HC HCA CC 
26 » PROGRAM: % 
27 TREC a Ne HC He Ne Se Me ae IIE eee aie ese Cr 
28 

29 

38 4800 28 58 FC JSR HOME iClear text screen 

31 4883 28 E2 F3 JSR HGR :Init graphics 

32 4806 A2 83 LDX #3 (3 = white 

33 4808 28 EC F6é JSR SETHCOL ‘Set hi-res color 

34 

35 » BASIC LINE 188: 

36 

37 4808 AD 12 LDA #18 ‘Set the number of dots 


COMPUTER 
NETWORK 


800-621-0937 


We wish everyone a happy 
NEW YEAR! 


NEED MORE MEMORY 


Multiram /e 64k.....$ 128.95 
Multiram /e 256k..... 175.95 
Multiram //e 512k..... 230.95 
Multiram /e 768k..... 299.95 
Multiram //c 256k.... 259.95 
Multiram //c 512k... 310.95 
Ramworks 64k .... 139.95 
Ramworks 256k.... 187.95 
Ramworks 512k.... 235,95 
Z-RAM //c 256k.... 348.95 
Z-RAM) //c 512k.... 375.95 
Veiwmaster........... 105.00 
Z-80 Plus ............ 105.00 
llc System Clock (clock for Ilc) 65.00 
Timemaster I] H.O. ..... 100.95 


New! 65C816 8/16-BIT CHIP* 


16-Bit_ Co-Processor kit for: 
liex...$180.00 llcx...$140.00 


APPLEWORKS SECTION 


39.95 


38 4800 8D Bi 48 
39 4818 8D B2 48 


43 4613 AE Bl 49 
45 4818 9D DB 48 


46 481B CA 
47 481C 16 FA 
48 

49 

58 


53 4822 8E B3 48 
54 4625 8C B4 48 
55 4628 BD ED 48 
56 4@2B 99 B7 46 
57 462E 8D B5 48 


59 4832 8E B3 48 
62 4835 BD ED 48 
61 4838 99 C9 46 
62 483B AE BS 48 


64 4848 26 57 F4 
65 4843 AE B3 48 
66 4846 AC B4 48 


69 464B CC Bl 48 


74 4858 AE Bl 48 
75 4853 8E B3 48 
76 4856 BD DB 48 


78 4@85B BD B7 48 
79 485€ 8D BS 42 
86 4261 BD C9 49 
81 4864 8D B6 40 


84 426C AE BS 4a 


83 4069 20 EC Fé 


» INITIALIZE FLAG ARRAY: 


INITLOOP 


STA NUMDOTS 
STA NDOTSON 


LDX NUMDOTS 
LDA #8 

STA RAINFLAG,X 
DEX 

BPL INITLOOP 


« BASIC LINE 118 


PLOTLOOP 


LDX #68 

LDY #68 

STX LOOPINDX 
STY ARRINDX 
LDA XYSTART.X 
STA XRAIN,Y 
STA XVAL 

INX 

STX LOOPINDX 
LDA XYSTART.X 
STA YRAIN.Y 
LDX XVAL 

LDY #6 

JSR HPLOT 

LDX LOOP INDX 
LOY ARRINOX 
INX 

INY 

CPY NUMDOTS 
BCC PLOTLOOP 


» BASIC LINE 128-168: 


STARTMOV 
MOVLOOP 


LDX NUMDOTS 
STX LOOP INDX 
LDA RAINFLAG,X 
BNE ENDLOOP 
LDA XRAIN,X 
STA XVAL 

LDA YRAIN,.X 
STA YVAL 

LDX #2 

JSR SETHCOL 
LDX XVAL 

LDY #8 

LDA YVAL 

JSR HPLOT 
LDX #3 

JSR SETHCOL 
LDX LOOP INDX 
INC YRAIN,X 
LDA YRAIN,X 
CMP #159 

BCC CONTLOOP 
LDA #1 

STA RAINFLAG,X 


:Set number dots "on 


‘Set the index 
iZero the index 
:Next index 


‘Not done, continue 


index 
index 


i: Init the loop 
:Init the array 
:Save loop index 
:Save array index 
‘Set X array 

to initial value 
‘Save current XVAL 
:Go to next index 
Save it 
:Set Y array 


:Restore XVAL 
:Zero the HOB 
:Plot the dot 
:Restore 

;Restore 

:Go to next foop 
;Go to next array 
;Up to num dots? 
;No, so continue 


index 
index 


:Set loop 
;Save the index 
;Is this on? 
;Not on, so end 
;Get X value 


loop 


:Get Y value 
;Zero color 


;Get X value 
:Zero the HOB 
:Get Y value 
:Erase the point 
Restore color 

to white 
:Restore loop index 
:Go down screen one 
:Get new value 
;Down at bottom? 
;No, continue loop 
:Set the flag 


continued on next page 


Graphworks 


Jeeves (DeskWorks) 
Haba 


large 
Haba Templates 
Meyaworks 
PreBoot ll+ (Videx) 


BUSINESS 

Back to Basics Acct 
Bank Street Maliler 
Bank Street Writer 


Bank Street Speier 
Bank Street Filer 
BPI G/A, A/R, AYP 
PFS 1st Success 
PFS Fite & Report ea.71.50 


PFS Wrke 

PFS Best Seller 
Sensible Spelier 
Supercale la 


HOME-HOBBY 


Pinpoint 
Sideways 
Sensible Speller 
SpellWorks 


KeyBoard Temr late 


| Speedemon 


EDUCATION 
Early Games 
Master Type 
Math Blaster 
Typing Tutor Ii! 
Word Attack 
Speed Reader II 
Spell-It 

Mission Algebra 
Turtle Tracks 


» CALL 
40.99 
40.99 
40.99 
40.99 

SLOW 
131.00 


71.50 
149.00 
72.00 
99.95 


HARDWARE 
Amdex 300 12" 


35.20 
73.30 
34.95 
15,95 


175.95 


20.50 
23.45 
29,30 
29.30 
29.30 
41.00 
30.00 
28.00 
24.00 


Spinnaker Full Line $CALL 
Stickybear Series ea. 24.00 


123.00 


Copy Il (//, Mac) 
Champ Lode Runner 
Dazzle Draw 

F-15 Strike Eagle 


20.00 
20.50 
35.15 
20.50 


Amdex Color 300 225.00 
Amdex Color 500 329.00 
RGB Interface 127.00 
Buttered Grappler+ 145.00 


Flight Simulator II 
GATO 

Home Acocountart 
Infocom Full Line 

Karateka 


29.95 
23.75 
43.95 
SCALL 
20.50 


Cool + Time 
Echo Il Plus 
Grappler + 
Mach Ill w/Fire 
lle 80Ram Card 


69.00 
93.00 
74.40 
33.00 
CALL 


| a I 


Lode Runner 
Millionaire 

Mind Prober 
Newsroom 34.15 
Newsroom clip art1 17.95 
One on One 25.50 
Pinball Construct 25.00 
Printshop 27.95 
Printshop GL #1 16.95 
Printshop GL #2 16.95 
Printshop GL #3 16.95 
Printshop Refill 14.95 
Sargon Ill (Il, Mac) 29.30 
Seven Citiles-Gold 25.50 
Skyfox 26.65 
Super Zaxxon 21.95 
Ulitma tll / IV 34.95 


PRINTERS 
Epson LX-80 
Epson JX-80 
Epson FX-85 
Epson FX-185 479.95 
Epson LQ-1500 899.00 


RIBBONS CALL 


For fast delivery send cashier's check, certified check or money 
order. Personal and company checks allow 15 days. Shipping - 
Software ($2.50 min.)._ Sorry No C.0.0.'s Shipping - Hardware 
(please call). School P.O.'s, Add 3% ($3 min), 2%-1O/net 30, Am. 
Ex.-5%, MC & Visa - 3%. NM Res. add 4.75% sates tax. 

Prices & availability subject to change without notice. All products 
are new and include factory warranty, therefore Ail sales are final. 
We do not pugentee pompanbaty: Products purchased in error 
subject to 15% restocking fae. Defective merchandise replaced 
with same item only. Not Responsible for typographical errors. 


3204 NATL. PARKS HWY., CARLSBAD, NM 88220 
FREE CATALOG 


“Works with the Multram Iie & llc cards from Chackmate Technology. 


21.95 
29.30 
35.15 


Microtazer all models CALL 
64K/256K chips 1.35/4.50 
System Saver 62.00 
The Cricket //c 111.00 
TG Select-A-Port 23.95 
Thunderclock + 107.00 
Trackhouse Key Pad $CALL 
Videx Ultraterm 189.00 
QUARK HARD DISK 
QC-10 /ec, Mac 1030.00 
QC-20 //ec, Mac 1369.00 
Corvus Hard DiskSCALL 
MICRO SCI DiSK DRIVES 
AS5 Siimline lle, llc 158.00 
Micro Sci C2 Cont. 53.00 
HAYES MODEMS 
Smartmodem 1200 415.00 
Micromodem lle SCALL 


DISKETTES 
Elephant SS’SD 
Elephart ODDS 
Verbatim DDSS 
Verbatim DODS 
Diskettes 3 1/2 


215.95 
493.95 
339,95 


12.00 
21,00 
16.00 
22.00 
26.65 


CIRCLE NUMBER 44 
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got royal ancestors, we have the noble 
software that can help you trace 
them down. 


Family Roots and your Apple, IBM, 
Commodore, Kaypro* and many others, 
offer individual and group sheets, charts, 
name indices, general search and text 
capabilities. Adapts 


to most disk drives, 

Put up piss 
‘ou get more utili 

your pionvanns plus lots 


d k f me salou control. 
comprehensive 
UKEeS. (new) rahi 
is included. 


All for just $185. 


Write or call today 
for more infor- 
mation and a 

free brochure. 


Quinsept, Inc. 


P.O. Box 216 
Lexington, MA 02173 
(617) 641-2930 


American Express, 
Visa, and MasterCard 
gladly accepted. 

* Trad 
Capit Ne, eesti 


Business Machines, CBM, Inc. 
and Digital Research. 
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“TermExec 
does a lot for 


the money.” 
InCider 


The complete com- 
munications software 
package that turns 
your Apple I|+/e/c into 
an intelligent terminal 
to let you talk with any 
other phone-accessi- 
ble computer. 


All you will ever need 
for only $95.00 with a 
30-day money-back 
guarantee. Major cred- 
it cards are accepted. 
Write or call today for 
our brochure and free 
demo disk. 


Quinsept, Inc. 
P.O. Box 216 
Lexington, MA 02173 
(617) 641-2930 
Bulletin Board 

(617) 863-0282 
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LISTING 2: RAIN.ML (continued) 


18 EE 11 
129 48F9 D2 14 78 


@5 

138 4103 A8 82 46 
OA 7E 18 62 04 1 
OA 54 15 

131 41@F FC 88 


06 Errors 


4000 Hex Start of Object 
4118 Hex end of Object 
@111 Hex Length of Object 
7B33 Hex end of Symbols 


END OF LISTING 2 


97 4908E CE B2 48 DEC NDOTSON :Decrease num dots 
98 4991 AD B2 48 LDA NDOTSON ‘Are they all gone? 
99 4994 FR 14 BEQ QUIT (Yes. so quit 

108 4896 4C Al 40 JMP ENDLOOP :Go to end of loop 
181 4899 AE B5 48 CONTLOOP LDX XVAL :Get same X value 
182 489C AB BB LDY #8 :Make sure HOB is @ 
183 409E 20 57 F4 JSR HPLOT ;Plot new point 
184 4@Al AE B3 48 ENDLOOP LDX LOOPINDX ‘Restore loop index 
195 4@A4 CA DEX ;Go to next index 
186 4@A5 18 AC BPL MOVLOOP ‘Not done 

187 4B8A7 4C 58 48 JMP STARTMOV ,Jump to start 

188 

169 » BASIC LINE 178: 

1108 

lll 4@AA 20 39 FB QUIT JSR SETTEXT :Go set text mode 
112 48AD 28 58 FC JSR HOME :Clear screen 

113 48B8 68 RTS 

114 

115 HO ROR MMOH a Be Se 

116 » VARIABLES 

117 waae 

118 

119 NUMDOTS DFS 1 

128 NDOTSON DFS 1 

121 LOOPINDX DFS 1} 

122 ARRINDX DFS 1 

123 XVAL DFS 1 

124 YVAL OFS 1 

125 XRAIN OFS 18 

126 YRAIN DFS 18 

127 RAINFLAG DFS 18 


128 4@ED 16 @@ 1C XYSTART DFC 22.0,28,18.224,5,56.3.182,24,238,17 
12 E® 95 38 03 B6 


BE C4 BE 8C 2A 9A 


DFC 218.2@,112.14,196.14.148,42,154,.5 


DFC 168.2,70,10.126.16,98,4.17,10,84,21 
1 


DFC 252,68 


LISTING 3: MSG.PRINT 


WOM DOP WNHY 


NEE eee eee 
WOON HAUARWNHK® 


EQUATE 
21 MSGPTR 
22 CH 
23 TABV 
24 HOME 
25 COUT 
26 
27 
28 
29 
36 
31 4888 28 58 FC 
32 4003 A2 O5 
33 4005 86 24 
34 48087 AQ 28 
35 4809 28 5B FB 
36 
37 488C AQ 36 
38 4886 85 28 
39 4818 AQ 48 
48 4812 85 @1 
41 4814 28 23 49 
42 
43 4017 AQ 51 


SS SSS PSPS EP ETH 


MSG. PRINT 
By S. Scott Zimmerman 
Copyright (c) 1986 
by MicroSPARC. Inc 
Concord. MA 91742 
The MicroSPARC Assembler 3.9 


Yeo Re Oe Be RCT ok seo ne ae OR RE 


ORG $4898 ‘Above hi-res screen 1 
BOS SOU SOHO SOHO RAO SO OIICIOIIOI EHO Ck 
$ 

EQU $0 :Message pointer 

EQU $24 ;Horizontal cursor pos 
EQU $FB5B >Mon ROM tab routine 

EQU $FC58 ;Mon HOME routine 

EQU $FDED :Mon ROM character out 


JSR HOME :Clear the screen 

LOX #5 :Do HTAB 5 

STX CH :Store in mon HTAB loc 
LDA #8 :Do VTAB 8 

JSR TABV ;Cal! mon tabbing rtn 

LDA AMSGL :Set pointer to message 1 
STA MSGPTR 

LDA #MSG1/ :Do the HOB 

STA MSGPTR+1 

JSR MSGPRINT :Go print the message 

LDA #MSG2 ;Set pointer to message 2 


continued on page 104 


lic SYSTEM CLOCK 


e Fully ProDos compatible 


e Automatic time and date stamping 
e Easy to use from BASIC 


e Battery operated, uses 3 “AA” batteries (will last 1-2 years before 
simple replacement) 


e Date has year, month, date and day of week 

e Time has hours, minutes and seconds 

e Will time and date stamp AppleWorks files 

e Will display time and date on the AppleWorks screen 


e Auto access from AppleWorks data-base (just use a time 
and date field) 


e Pass through serial port - The IIc system clock can plug into either 
the modem or printer serial port, then modem or printer 
plugs into the clock 


e No hassle 5 year warranty 


« Only $79.00 


“We Set the Standard’’ 
214-241-6060 APPLIED ENGINEERING 9AM-11PM 


If the sticker on your printer reads like this, 
you've been stuck. 


Too many big-winded printer companies 
are sticking it to too many unsuspecting 
consumers. Making a lot of noise about fea- 
tures that aren’t featured at all. 

It’s time to strike back at the stickers. And 
sticker shock. 


THE STAR SG-10 


WM 2K BUFFER ................. STANDARD 
@ 100% IBM-compatible........ STANDARD 
@ ADJUSTABLE TRACTOR .... STANDARD 
@ HEX DUMP .................. STANDARD 
MITALICS iis scavenger scenes STANDARD 
@ NEAR-LETTER-QUALITY ... STANDARD 
M@ RETAIL PRICE ......... 26.000 e eee $299 


The SG-10 printer from Star Micronics 
includes as standard many of the attractive 
features which Epson’s” LX-90 and the 
Okidata” ML-182 charge extra for. Or don’t 
offer at all. 

The Star SG-10 is faster than the Epson 
and more IBM*-compatible. And unlike 
the Okidata, the SG-10 features dual-mode 
printing—draft and NLQ—at no extra charge. 

The SG-10 offers more at less cost—or 
much more for the same price—than its two 
leading competitors. 

So, if you’d rather be struck by a sticker 
that makes great sense than stuck with a 
sticker that makes nonsense, look into the 
SG-10 today. At your local Star dealer. 


SItqQir“ 


micronmics 
THE POWER BEHIND THE PRINTED WORD” 


® Epson is a registered trademark of Epson America, Inc. ® IBM is a registered trademark of International Business Machines, Inc. ® Okidata is a registered trademark of Okidata, an OK] AMERICA company 


CIRCLE NUMBER 45 


desired horizontal position into CH ($24); 
this has the same effect as the HTAB com- 
mand in BASIC. Then, load the Accumu- 
lator with the desired vertical position (the 
VTAB value). Finally, call TABV, which 
does the necessary calculations for COUT 
to print the next character at the specified 
location. 

Lines 37-40 set the message pointer, 
MSGPTR. The first message has the label 
MSGI (line 66 of Listing 3). MSGI is 
simply a group of bytes that contains the 
ASCII codes of the sentence ‘‘NIBBLING 
AT ASSEMBLY HAS IT ALL!”’ Lines 37- 
38 load the LOB ($30) of MSGI into the 
Accumulator and store the value into 
MSGPTR. Lines 39-40 load the HOB ($40) 
of MSGI into the Accumulator and store it 
into MSGPTR. MSGPTR now is pointing 
at the address of MSG1, namely, $4030. 

With MSGPTR pointing at the address of 
the message, line 41 calls the subroutine 
MSGPRINT (message print), which actu- 
ally prints the message onto the screen. 
Lines 43-47 reset the pointer to the second 
message, MSG2, and again call MSG- 
PRINT to print the second message. 

The most important part of MSG.PRINT 
is, of course, the subroutine MSGPRINT, 
lines 54-60. This is how it works. Line 54 
initializes the Y-Register to zero; this reg- 
ister serves as the index for the print loop. 
In line 55, the pointer MSGPTR loads a 
character into the Accumulator. This is a 
good example of the indirect indexed ad- 
dressing mode. The LDA command here 
does not load the Accumulator with the 
value at MSGPTR; instead it loads the value 
pointed at by MSGPTR. In other words, the 
load is not direct (or absolute) but rather 
indirect. 

Furthermore, LDA (MSGPTR),Y loads 
the Accumulator with the value pointed at 
by MSGPTR only when the Y-Register is 
zero. When the Y-Register is nonzero, the 
accessed memory address is indexed by the 
value in Y. For example, if the Y-Register 
contains 3 and MSGPTR is pointing at (or 
contains the address) $4030, the byte value 
at $4030+ 3 (that is, at $4033) is loaded into 
the Accumulator. 

Let’s compare the indirect indexed 
addressing mode with other more familiar 
addressing modes. The assembly language 
statement LDA MSGPTR is an example of 
the absolute addressing mode, in which the 
Accumulator is loaded with the contents at 
the memory address MSGPTR (i.e., address 
$00). The statement LDA MSGPTR,Y is an 
example of the absolute indexed addressing 
mode, in which the Accumulator is loaded 
with the contents at the address MSGPTR 
+ Y. If Y contains $01, the value at MSG- 
PTR+$01 is loaded into the Accumulator. 
In contrast, the statement LDA (MSGPTR), 
Y loads into the Accumulator the value con- 
tained at the address stored in MSGPTR and 
MSGPTR + 1, offset by the value in the Y- 


APPLEWORKS USERS 


TRANSFORM YOUR 80 COLUMN CARD 
INTO AN EXTENDED 128K VERSION WITH 


EXTEND 80 


* * 


FULL 
ONE-YEAR 
WARRANTY 


OVER 
2000 SOLD 


Extend 80 doubles your memory from 64K to 128K 

Extend 80 is easy to install - just plug it into your 80 Column Card 

Extend 80 is totally compatible with all existing software including 
AppleWorks, ProDOS, and Double Hi-Res Graphics 

Extend 80 has been thoroughly field-tested and is backed by a full 
one-year warranty 

Extend 80 sells for only $99.95 


TO ORDER: 
SEND CHECK FOR $99.95 + $5.00 shipping ($10.00 OUTSIDE U.S.) TO: 
Extend 80 OR CALL 1-800-821-0208 


221 E. Osceola, Suite 110 MasterCard, VISA Accepted 
Stuart, FL 33494 Florida residents add 5% sales tax 


305-283-3394 Dealer inquiries welcome. 
Apple, AppleWorks, ProDOS are registered trademarks of Apple Computer, Inc. 
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We are NOT 


PIRATES! 


but we’re not fools, either. 


We’re serious programmers and software users who just want to have 
backup copies of any software we own. Hardcore COMPUTIST magazine 
shows us HOW TO MAKE BACKUPS OF COMMERCIAL SOFTWARE 
regardless of the maker’s attempt to stop us from having legal copies. 
Don’t let them stop you from protecting your own rights. 


Remove copy-protection 


from your valuable library of expensive software. The publisher of Hardcore COMPUTIST 
has been showing subscribers how to unlock and modify commercial software for the past 
4 years. Don’t be one of the users abused by user-FIENDLY locked-up software. Subscribe. 


SUBSCRIPTIONS RATES 
FOR 6 ISSUES 
U.S.: $20 : 
US. first class: $24 Name Nl 
Canada, Mexico: $34 
Other Foreign: $60 Address 
SAMPLE COPY: 5 
US: $4.75 City State. 
other: $5.75 
US funds drawn on U.S. bank 
In Washington add 7.8% tax 
Send check or money order to 


Hardcore COMPUTIST 
PO Box 110846-N 
Tacoma, WA 98411 


NEW subscriber Renew my subscription 


Country ____ Phone 


VISA/MC 


Signature 
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LISTING 3: MSG.PRINT (continued) 


Register. Indirect indexed addressing is fur- 
ther illustrated in the program AUTOTAB 
(Listing 4). 

In MSG.PRINT (Listing 3), line 56 
branches to the end of the MSGPRINT sub- 
routine if the value loaded into the Accu- 
mulator is zero. Therefore, each message 
to be printed should be terminated with a 
zero (see line 67. in which the DFB assem- 
bler instruction generates a zero at the end 
of the first message). 

Line 57 does the actual screen printing. 
through the subroutine COUT, as explained 
above. Line 58 increments the Y-Register 
to point at the next character in the message. 
This causes line 55 to load the Accumula- 
tor with the next character in the string 
pointed at by MSGPTR. Line 59 branches 
when Y is nonzero. which is always true (as 
long as the string being printed has fewer 
than 255 bytes). Finally, line 60 ends the 
subroutine and returns program control to 
the line following the subroutine call. 

The actual string data is found in lines 66- 
70. As mentioned above, the first string, 
MSGI, contains the ASCH codes of the 
message, followed by a zero byte. The sec- 
ond string. MSG2, begins with two bytes 
of $8D. This is the ASCII code for a car- 
riage return; therefore, the second string is 
printed two lines below the first. The second 
string ends with another carriage return (line 
70) and the necessary zero byte that indi- 
cates the end of the string. Notice the use 
of the pseudo-opcode ASC. which generates 
the ASCII code of the string. Most assem- 
blers support this directive; consult your 
assembler’s manual to see if your assembler 
supports ASC. 


AUTOTAB 

AUTOTAB 1s a utility that positions the 
cursor for PRINT statements in Applesoft 
programs. Instead of the cumbersome 
syntax: 


HTAB 10: VTAB 7 
for example. you can simply type: 
&T10,7 


when AUTOTAB is installed. Moreover, 
AUTOTAB can automatically center a line 
of print if you precede the PRINT command 
with &C40 (in 40-column mode) or &C80 
(in 80-column mode), 

Key AUTOTAB (Listing 4) into your 
assembler, assemble the program, and save 
both the source file and the object code 
(AUTOTAB) to disk. 


USING AUTOTAB 
To use AUTOTAB. include this line in 
your Applesoft BASIC program: 


11@ PRINT CHR$(4) :"BRUN AUTOTAB" 


Notice that you must BRUN. not just 
BLOAD. the program. Once AUTOTAB is 
installed, use the ampersand command syn- 


44 4819 85 OO STA MSGPTR 
45 4@1B AQ 48 LDA #MSG2/ :Do the HOB 
46 481D 85 @1 STA MSGPTR+1 
47 4@81F 26 23 48 JSR MSGPRINT ;Go print the message 
48 4822 60 RTS iReturn to BASIC 
49 
50 * , OCIA CAO ROC CA ak LACTIC HA ACHE HOR a aR ae 
51 » MSGPRINT (Message print routine) 
52 BIOS ARCA FORA SOIC SOIO AG ASSO OIG ICAO IC IC RIE Aa SE ak aE AE HOI SO a aa 
53 
54 4823 AB BO MSGPRINT LDY #6 iZero the index 
55 4825 B81 6D MSGLOOP LDA (MSGPTR).Y {Get a character 
56 4827 F@ 06 BEQ ENDMSG If zero. end 
57 4829 28 ED FD JSR COUT ;Not zero, so print it 
58 482C C8 INY :Bump the index 
59 482D DO F6 BNE MSGLOOP ‘Always loop 
68 482F 66 ENDMSG RTS :Return to caller 
61 
62 * BONES SSCS BOSCH OIRO ROS 2 RO HACHETTE IOIC IOI OIC ICH ue at de 
63 . 
64 BORO AC HOI RAC te anak a a a Om 
65 
66 4838 CE C9 C2 MSG1 ASC “NIBBLING AT ASSEMBLY HAS IT ALL!" 
C2 CC C9 CE C7 AB 
C1 D4 ASW Cl D3 D3 
C5 CD C2 CC DO AB 
C8 Cl D3 AB C9 D4 
A® C1 CC CC AI 
67 4858 08 DFC @ 
68 48251 8D 8D MSG2 DFC $8D.$8D 
69 4853 CD D3 C7 ASC "MSGPRINT PRINTS MESSAGES. " 
D@ D2 C9 CE D4 AG 
D@ D2 C9 CE D4 D3 
A® CD C5 D3 D3 Cl 
C7 C5 D3 AE 
78 486C 8D 00 DFC $8D,0 
O88 Errors 
4000 Hex Start of Object 
406D Hex end of Object 
O@B6E Hex Length of Object 
7BB@ Hex end of Symbols 
END OF LISTING 3 
se] 
LISTING 4: AUTOTAB 
© AUTOTAB 
by S. Scott Zimmerman 
Copyright (c) 1986 
by MicroSPARC. Inc 
Concord, MA 61742 


Nee Bee ee eee 
HSOWNADHHWNY QBOWNHDGUAWNED 


The MicroSPARC Assembler 3.9 


To activate AUTOTAB. BRUN 
your Applesoft program 


it at the first of 
The commands are: 


CURSOR TAB: &Tn.m where n 1s HTAB and m is 
VTAB 
21 CENTER PRINTING: &Cn where n 48 or 8@ for 
22 46- or 8@-column screen display 
23 
24 ee 
25 
26 ORG $8308 Page 3 user's space 
27 
28 
29 
38 
31 
32 ROWNUM EQU 7 ;Current row number 
33 NCHAR EQU 9 :No. characters in PRINT 
34 CH EQU $24 :Horiz cursor position 
35 TXTPTR EQU $B8 :Paints to Applesoft text 
36 AMPER EQU $3F5 :Ampersand vector adrs 
37 GETBYTC EQU $E6F5 :Skip char, eval exprsn 
38 COMBYTE EQU $E74C :Check comma. eval expr 
39 TABV EQU $FB5B :Monitor TAB routine 
40 
41 ee ee ee ee ee es Se sk de oh He 
42 » INITIALIZE: 
43 Wo RACE as MOK OM te oe ce Gene ce ek 
44 
45 ©3808 AQ 4C LDA #$4C :JMP opcode 
46 93602 8D F5 83 STA AMPER ;Stuff in amper vector 
47 6385 A9 18 LDA #START ;Load starting address 


continued on page 106 
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FRED & SARA CRONE 


Shape Mechanic is a lightning-fast remake of our 
Apple Mechanic and Typefaces disks, combined 
& rewritten to support ProDOS as well as DOS 3.3. 


TR. 


HI-RES SHAPE MAKER 
Shape Mechanic converts your hi-res draw- 
ings into “shape tables” so you can create 
title screens, charts and animation with 
Apple's built-in Draw & Xdraw commands. 


™ Pe in pixets: 
high x 88 wide 
MINIPIX Disk #1 
$29.95 (compatiblé with any Apple lI—DOS 3.3 and ProDOS) 
200 PICTURES ON DISK—FOR SHAPE MECHANIC, PRINT SHOP,’ = 
APPLE MECHANIC, ALPHA PLOT, BEAGLE GRAPHICS, é 
and most other Apple-compatible hi-res graphics programs— I 
Use pictures “as is”, or create instant MIRROR IMAGES & BLOWUPS. SC 
Pius, convert part of any normal hi-res picture to PRINT SHOP™ format. 
PRINT SHOP™ owners: Use Minipix pictures directly on your greeting cards, banners 
and signs. SHAPE MECHANIC and APPLE MECHANIC fans: Use Minipix in shape table 
format for hi-res screen displays. ALPHA PLOT and BEAGLE GRAPHICS users: “Clip” 
Minipix images off the screen and “paste” them onto your own hi-res pictures. 
"PRINT SHOP” is a trade mark of Broderbund Software, Inc. 
™ ™ 
MECHANIC MECHANIC 
by BERT KERSEY & MARK SIMONSEN by MARK & JON SIMONSEN 
$39.95 (any Apple l!: DOS 3.3 & ProDOS) $29.95 (any Apple II: DOS 3.3 & ProDOS) 
30 all-new hi-res fonts for 
SHAPE MECHANIC 
and APPLE MECHANIC! 
SAMPLE FONT MECHANIC TYPE: 
G10 €nglish CRATE FINE 
UNCLE BRANDING 
Caesar FOWL W eben 
BELLS S@NOWICH TIMES 
U.S. OPEN €9336N GrxX 


TRIPLE-DUMP™ 


by MARK SIMONSEN & ROB RENSTROM 
$39.95 (any Apple 4l: DOS 3.3 & ProDOS) 


PRINT ANY APPLE IMAGE: Use your 
dot matrix graphics-capable printer to print: 
1. Hi-Res and Double Hi-Res graphics 
2. Lo-Res and Double Lo-Res graphics 
3. 40- and 80-Column text-screen text. 
Print all kinds of images with absolutely no 
programming knowledge. OR call T-Dump 
routines from your Applesoft programs. 
SPECIAL EFFECTS: Crop, rotate, magnify, 
compress, distort, adjust print density, etc. 
GIANT BANNERS too: Print big signs and 
messages (8'2” high letters) on any printer. 


D CODE” 


by ALAN BIRD 
$39.95 (any Apple Il: DOS 3.3 & ProDOS) 


PROGRAM PACKER: Compress Apple- 
soft programs to increase efficiency. Com- 
bine program lines, shorten variables or 
remove Rem's. Find lines that won't execute. 
AUTO-PROOFREADER: Errors are caught 
as you type, before a program is run. 
SUPER-TRACE: When a program stops or 
crashes, type “DUMP” to look at the last 
10-10,000 statements executed, in order. 
“Live” tracing too, 
with each execut- 
ing statement, line 
no. and selected 
variable value in 
a window at the 
bottom of screen 
BREAKPOINTS: Your program stops 
when you want. For example, when X gets 
set to 99, or the 3rd time a Gosub occurs. 
LIGHTNING-FAST FIND: Find strings 
& variables fast—search big programs in 
apx. 2 seconds—very useful! D Code is 
fully-transparent to your programs, and 


Your program 
runs up here. 


Lines & VARIABLES 
traced down here. 


EXTRA K”™ 


by MARK SIMONSEN & ALAN BIRD 

$39.95 (IIc or 128K Ile: DOS 3.3 & ProDOS) 
EXTRA VARIABLES: Applesoft programs 
run undisturbed in main memory while var- 
iables strings, etc., reside in the other 64K. 
EXTRA APPLE: Have two 64K Apples & 
programs in memory (ProDOS & DOS 3.3 
at the same time if you want). Switch at will. 
EXTRA-FAST COPIES: "Nibble copy” and 
verify your unprotected disks in 35 seconds! 
EXTRA FEATURES: Create combo 3.3/ 


ProDOS disks. MANY MORE 128K utilities. 
EXTRA SCREENS: Store all kinds of im- 
agesin memory. Display any one instantly. 


SHOW SEVERAL HI-RES PIX PER SECOND! 


GPLE™ 


by NEIL KONZEN 
$49.95 (any Apple Il: DOS 3.3 & ProDOS) 


GLOBAL PROGRAM LINE EDITOR: The best, 
most popular Applesoft editor. Works like a 
word processor for Basic program lines. 

INSERT AND DELETE: Quickly make 
changes to programs. No more awkward 
“escape-editing”. No more hassles with 
extra spaces in quote statements. No more 
slow “cursor-tracing” to the end of a line. 

SEARCH AND REPLACE: Find every 
occurrence of a string or variable in a pro- 
gram. Replace any word or variable too. 

FUNCTION KEYS: Define your own— 
For example, ESC-1 can Catalog drive 1, 
ESC-N can clear the screen and type your 
name or anything... Customize your Apple! 


"List & Learn” demos on the disk teach you 

how to create your own hi-res programs. 
NO FEE to use Mechanic's routines in 

programs that you sell. Just give us credit. 


SHAPE CAPTURE: Convert all or part 
of any hi-res picture into a shape table. 


HI-RES TYPE 
30 proportionally spaced hi-res screen dis- 
play fonts (both large & small) are included 
on the Shape Mechanic disk. Every charac- 
ter may be edited to become any symbol. 


CUOLUOW OUTLINE CHOMP 
mons heathen SKINN'Y 
FATSOL.E.0. = Ws eu 


SQUARE Sain tO. > st ®x 


SAMPLE TYPE: Most of these fonts were on our 
old “Typefaces” disk—in DOS 3.3 only. 


All Beagle é@Zgy —~_ 
Bros disks are B d 
unlocked & copyable. 


Don't settle for less. 


1 HOME: INVERSE: PRINT CHR$(21) ey 
2 X=RND(1)*24+1: VTAB X: HTAB X: 
PRINT X; : HTAB 26-X: PRINT X;: GOTO 2 


PRO-BYTER™ 


by BERT KERSEY & JACK CASSIDY 
$34.95 (Apple Ile/lic or 64K Il+: ProDOS) 


BYTEZAP PRO: All NEW—Inspect Pro- 
DOS & 3.3 disks at the byte level. Make 
normally-impossible changes and repairs. 
Find any word in a disk or file. Repair 
zapped disk bytes and customize disks. 
Easy instructions show how to do it. 
MACHINE-LANGUAGE SORT: One Call 
in your Applesoft program alphabetizes 
words—fast! Sorts string-arrays—A$/(1) etc. 
MORE: Save time & date in your catalogs. 
Catalog all directories on ProDOS disks. 
Swap Applesoft commands, TYPE text files 
without booting your word processor... 
MACHINE LANGUAGE EDITOR: Type in 
programs from mags, and insert and delete. 
ALL-NEW APPLE TIPS! Use memory like 
an extra disk drive; Disable LIST so it says 
“File Locked”; Disable/swap. ANY command; 
Rename “Startup”; Personalize catalogs.. 


COUNTOOWN 4 ROOSEVELT 
FONT UTILITIES: Convert other fonts 
(DOS Tool Kit™, etc.) into shape fonts. 
Adjust and distort (stretch, shrink, squish, 
etc.) for copy-fitting and special effects. 
NEW CAT-MENU: Super high-speed; 
lets you select and execute ProDOS or 
DOS 3.3 files from menu with one keystroke. 


ProDOS™UTILITY by RANDY BRANDT 
$34.95 (Apple lic, lle or 64K II+: ProDOS) 


FILE MOVER: (80-columns) Replaces 
Apple's Filer for ProDOS file transfer (not 
3.3). Fast and friendly—no need to re-boot. 


CRT WRITER: (80-co’'s, Ile or lic only) 
Create fancy 80-column title screens. Or 
write & print short notes without booting up 
your word processor. Save screens on disk. 
KEY-CAT 80: (80-col's) Hit ctri-Reset to 
instantly see a disk's catalog in 80-columns. 
One keystroke runs or loads any program. 
RAM LOAD: (/ic or 128K Ile) Auto-load 
files to and from RAM. Load all of your 
favorite programs into memory at once. 


18 ALL-NEW ProDOS COMMANDS: 
(64K min., any Apple) COPY files from 
disk-to-disk. XLIST programs in better for- 
mat. ANYCAT catalogs any DOS. MON 
monitors ProDOS. SHOW loads and shows 
pix. SEE lists disk programs without loading. 
ERROR EDITOR: Rewrite ProDOS's er- 
ror messages ("Path Not Found”, etc.). 


INPUTTER: Accepts commas & colons, 
rejects control-characters. Esc to abort, etc. 
You pre-determine maximum string length. 
REM-ZAPPER: Work with 2 versions of 
the same Applesoft program—one with 
Rem's and one without. Switch instantly. 
MUCH MORE including ProDOS versions 
of many Beagle UTILITY CITY programs. 


compatible with GPLE, Double-Take, etc. 
a.) 


Phone 
now 

for a free 
Beagle 
Bros 
Catalog. 


24 Apple || software 
products under $60. 
If you don't have 
your copy of our 
Winter/Spring 1986 
catalog, phone toll 
free 1-800-227-3800 
ext. 1607. 


3990 OLD TOWN AVE., SAN DIEGO, CA 92110 (PHoNne 619-296-6400) 


GOTO YOUR SOFTWARE STORE. 


Or buy directly from Beagle Bros. WE SHIP FAST via First Class Mail. 


MICRO SOFTWARE 


OD Alpha Plot..... $39.50 Visa/MasterCard or COD, order Toll Free 
O Beagle Bag..... 29.50 ™ “= A\| 50 states, 24 hrs. every day (orders only) 
O Beagle Basic... . 34.95 
O Beagle Graphics 59.95 1-800-227-3800 ext.1607 
OBigU.......... 34.95 
ODCode........ 39.95 OR MAIL US A CHECK, MONEY ORDER OR VISA/MASTERCARD NO. 
DO DiskQuik....... 29.50 
O DOS Boss...... 24.00 MAME. 
O Double-Take 34.95 appDREsS 
OL Extra. 3 occu. 39.95 
O Fateat: 3.3 gence 34.95 
O Flex Type ...... 29.50 
O Font Mechanic .. 29.95 oCITY. STATE ___ zp 
O Frame-Up ...... 
OGPLE.......... (Ppa | CARD NO. 
A vei oe . Vv EXPIRATION DATE 

INIPIX is 

3 Add $1.50 First Class Shipping, any size order 

eB Siodins : : ; : : a Ss Overseas add $5.50—COD add $3.00—Calif add 6% 
D Shape Mechanic 3995 aii to BEAGLE BROS, DEPT. A 
aa Eck rea 2000 3990 OLD TOWN AVENUE, SUITE 102C 
o Taps Durng """* S995 SAN DIEGO, CALIFORNIA 92110 
O Utility City...... 2950 ALL ORDERS SHIPPED IMMEDIATELY. 


CIRCLE NUMBER 48 


el 


tax described above for tabbing and center- 
ing text. For the centering command (&C) 
to work properly, the PRINT statement fol- 
lowing the & command must contain the en- 
tire string within quotes (i.c., ‘“STRING’’) 
and not in a string variable (such as A$), 
nor in an Applesoft expression. AUTOTAB 
only counts the number of characters within 
the quotes to calculate the centering loca- 
tion. Make sure that the string contains 
fewer than 40 characters in 40-cotumn mode 
and fewer than 80 characters in 80-column 
mode. 

AUTOTAB.DEMO (Listing 5) is a short 
Applesoft program that demonstrates the use 
of AUTOTAB. 


HOW AUTOTAB WORKS 

Lines 32-39 of AUTOTAB contain the 
EQUates to Applesoft and the Monitor 
ROM routines. ROWNUM and NCHAR 
are variables defined by the programmer. 
while the other EQUates are ROM locations 
or variables used by ROM. For example, 
TXTPTR is probably the most important 
pointer used by the Applesoft BASIC inter- 
preter. TXTPTR (text pointer) points to the 
current Applesoft character in memory. 
AUTOTAB uses TXTPTR in the text cen- 
tering routine. 

AMPER (line 36) is the ampersand (&) 
vector address. (A vector is a sequence of 
bytes that redirects program control to 
another region of memory.) Lines 45-50 set 
up the & vector by first putting the JMP code 
($4C) at AMPER (address $3F5). AUTO- 
TAB then puts the LOB of the program start- 
ing address at AMPER + | ($3F6), and puts 
the HOB of the program starting address at 
AMPER+2 ($3F7). 

The main program starts in line 57 at 
address $0310. This is the address to which 
the & vector points. When the Applesoft 
interpreter encounters an & in the program 
code, it does three things: 


1. Increments the text pointer, TXTPTR. 
to point to the character immediately fol- 
lowing the & 

2. Loads the Accumulator with the byte 
value of the character after the & 

3. JMPs to AMPER ($3F5) 


If a JMP code is located at $3F5 (which is 
the case after BRUNing AUTOTAB), the 
program JMPs to the address stored at 
AMPER +1 and AMPER +2, which, in this 
case, contains the address $0310. 

Lines 57-61 of AUTOTAB evaluate the 
byte in the Accumulator (the one immedi- 
ately following the &) to see if there is a T 
or aC, and if so, it branches to the appropri- 
ate section of code. 

Lines 67-73 contains the TAB routine. 
The Applesoft ROM routine GETBYTC is 
used to evaluate the expression following the 
T in the & call. The Applesoft expression 
may contain any combination of variables, 
constants, and arithmetic or logical opera- 


SSS a a 
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LISTING 4: AUTOTAB (continued) 


48 8307 8D F6 83 STA AMPER+1 :Save starting address 
49 838A AI 3 LDA #START/ :Now get HOB 
58 @38C 8D F7 83 STA AMPER+2 ‘And save it, too 
51 @8308F 66 RTS 
52 
53 eee ee ee eee ee eee eee ee ee ee 
54 » PROGRAM START: 
55 ee ee ee ee ee eee 
56 
57 6318 C9 54 START CMP #$54 iIs it ‘T'? 
58 0312 FO @5 BEQ TAB ,Yes, go set tab 
59 8314 C9 43 CMP #$43 ‘Was it 'C'? 
60 6316 FO OF BEQ CENTER :Yes, go center print 
61 6318 60 RTS :None of above, so quit 
62 
63 HONOUR MO ge dene ge at a SOT A eae ae ee me ae te ge nC 
64 TAB the cursor: “x 
65 ee ee ek ee ec ce) 
66 
67 @319 20 F5 E6 TAB JSR GETBYTC ;Eval expression of HTAB 
68 @31C CA DEX :Make range 9-39 
69 31D 86 24 STX CH ‘Store in mon HTAB loc 
70 @31F 28 4C E7 JSR COMBYTE :Evat expression for VTAB 
7i @322 CA DEX :Make range 8-23 
72 0323 8A TXA :Put in accum for TABV 
73° 6324 4C 5B FB JMP TABV ‘Tab & return to BASIC 
74 
75 % ORTH IOI ROI IO Oe BOC ROI SOI IONS ESC 
76 * ER printing: 
77 PRE AOR A OUN RANA 
78 
79 @327 20 F5 E6 CENTER JSR GETBYTC ‘Evaluate expression for 
88 632A 86 B7 STX ROWNUM # of chars/tine & save 
81 632C AD BB LDA #@ ;Zero the print chars 
82 632E 85 a9 STA NCHAR ;No, characters in string 
83 6338 AD BL LDY #1 Init the search index 
84 
85 9332 B1 B8 PRINTST LDA (TXTPTR).Y ;Get byte value from prgm 
86 6334 C8 INY i: Increment to next char 
87 8335 C9 22 CMP #$22 :Is tt a quote mark? 
88 6337 D@ F9 BNE PRINTST ‘No. go get next char 
89 
98 6339 Bl B8 STRCOUNT LDA (TXTPTR),Y :Yes, so count chars 
91 0338 C8 INY :Go to next character 
92 933C C9 22 CMP #$22 ‘Is it a quote? 
93 933E FO 29 BEQ CALTAB Yes. end of string 
94 0348 C9 20 CMP #$20 ‘Is it a control char? 
95 9342 98 02 BCC CTRL :Yes. so don't inc count 
96 344 E6 29 INC NCHAR : Increase character count 
97 8346 4C 39 83 CTRL JMP STRCOUNT :Go check next character 
98 
99 Calculate the proper TAB for centering: 
108 
191 @349 38 CALTAB SEC ‘Calculate diff between 
102 634A AS @7 LDA ROWNUM no. characters per row 
193 @34C €E5 09 SBC NCHAR ; and no. chars in string 
104 §34E 4A LSR ;Divide the result by two 
105 @34F 85 24 STA CH :Stuff into HTAB value 
186 ©6351 66 RTS Return to BASIC 

G88 Errors 

9380 Hex Start of Object 

@351 Hex end of Object 

0852 Hex Length of Object 

7B81 Hex end of Symbols 


END OF LISTING 4 


LISTING 5: AUTOTAB.DEMO 


128 REM « 

28 REM AUTOTAB . DEMO 

30 REM « BY SCOTT ZIMMERMAN 

48 REM « COPYRIGHT (C) 1986 

5@ REM « By MICROSPARC, Inc 

68 REM « CONCORD. MA 91742 

70 REM tec ae eee 

88 REM 

98 TEXT : HOME IF PEEK (1814) = 16 AND PEEK 
(1815) = 3 THEN 118 

198 PRINT CHR$ (4);"BRUN AUTOTAB” 

118 & C4@: INVERSE PRINT " AUTOTAB NORMAL 
> & T1,3: & C4Q: PRINT "BY S. SCOTT ZIMM 
ERMAN": & C4@: PRINT "COPYRIGHT (C) 1986 

BY MICROSPARC“ 

120 & T3,18: PRINT "->AUTOTAB AUTOMATICALLY 
TABS.” 

136 & T1,13: & C48: PRINT "“->1T AUTOMATICALL 
Y CENTERS. <-" 

148 & 73,19: PRINT “JUST REMEMBER TO BRUN AU 
TOTAB AND": PRINT “THEN USE &-COMMANDS A 
S SHOWN IN THIS": PRINT “DEMONSTRATION P 
ROGRAM. ” 


END OF LISTING 5 


DON’T TAKE A CHANCE ON FUTURE COMPATIBILITY. At 
‘CIRTECH, we believe in designing for the future. That’s why 
we've developed the ‘CIRTECH FLIPSTER, a ONE MEGABYTE 
RAMCARD which conforms to the new Apple® standard for large 
dig "a cards, guaranteeing a bright future for your Apple® //e 
or ][+. 


FULL ONE MEGABYTE OF MEMORY -— no need for clumsy 

add-on’s 

NO PATCHING REQUIRED for ProDOS 

APPLEWORKS), DOS 3.3 or PASCAL 1.3 
ACCELERATES APPLE ® //e and || + PERFORMANCE - even on complex software 


FLIP-FLOP PROGRAM MANAGER -— allows switching between programs, even if they run under 
different operating systems. 


FITS IN ANY STANDARD SLOT — you can have up to SIX MEGABYTES in your Apple® 
FREE SUPPORT — ensuring compatibility with earlier versions of CP/M and PASCAL 
FANTASTIC VALUE .. only $490.00 


(CORTE o-ocucts ae avatiabte trom GREENGATE ve Sere ate 


* CIRTECH (UK) Ltd are in no way affiliated with Sir-tech Software Inc Apple is 


(including 


4 registered trademark of Apple Computer Inc 


CIRCLE NUMBER 31 


tions. If the program contains the command 
&T10,5, GETBYTC would cause TXTPTR 
to skip the T, evaluate the expression, and 
put the result (10 or $0A) into the X- 
Register. Since Applesoft tabs use the range 
1-40, but CH and TABV (see above) use 
the range 0-39, AUTOTAB decrements the 
X-Register in line 68 before storing the 
results in CH. 

After GETBYTC evaluates an expression, 
TXTPTR is left pointing to the character fol- 
lowing the expression. COMBYTE is a re- 
lated Applesoft ROM routine that checks for 
a comma before evaluating an expression. 
This is just what we want for evaluating the 
expression after the comma in &T10,5. 
Hence, line 70 calls COMBYTE which, in 
this example, puts a five in the X-Register. 
AUTOTAB decrements the X-Register (line 
71) to adjust the tab range, transfers the 
result from the X-Register to the Accumu- 
lator (TABV requires the vertical tab in the 
Accumulator), and calls the TABV routine. 
Notice that AUTOTAB could have used a 
JSR TABV followed by an RTS to end the 
routine, but instead it simply JMPs to TABV 
and thereby saves one byte. 

The CENTER routine is a little more 
complicated. It uses GETBYTC (line 79) to 
check for 40-column or 80-column center- 
ing, and stores the result in the variable 
ROWNUM (line 32). Lines 81-82 zero the 


NCHAR, used to count the number of char- 
acters in the PRINT string. 

At this point in the program, the Applesoft 
text pointer, TXTPTR, is pointing at the 
character in the BASIC line of code follow- 
ing the &C40 or &C80 command. AUTO- 
TAB now uses TXTPTR to count the 


TUULUUEEROEEOLE UE COUUEEAEDOEE EDU EEE 


...the object code is only 
273 bytes, compared to 347 
bytes for the BASIC 
program. 
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number of characters in the next PRINT 
string. This starts on line 85, which is the 
beginning of a loop to search for the first 
quote mark (‘*) in the print string. The 
command: 


LDA (TXTPTR),Y 


which is the indirect indexed addressing 
mode, loads the byte value of a character 
in the BASIC line, INY increments the index 


to point to the next character, and CMP 
#$22 checks whether the number in the 
Accumulator is the ASCII code for a quote 
mark. 

When AUTOTAB finds the first quote 
mark, the program drops down to line 90, 
where it begins a search for the second quote 
mark, counting the number of characters in 
between. 

Once AUTOTAB finds the second quote 
mark, the program goes to line 101, where 
it calculates the HTAB necessary to center 
the string. I will not try to explain the 
calculations at this time. 

In the next installment of Nibbling At 
Assembly Language we’ll discuss assembly 
language arithmetic. In the meantime, 
analyzing AUTOTAB will challenge your 
assembly language programming skills. 


Dr. Zimmerman has just co-authored (with 
Beverly Zimmerman) a book entitled Action 
Games for the Apple: How to Design Com- 
puter Games, (Scott, Foresman and Co., 
1900 East Lake Ave., Glenview, IL 600235). 
The book is designed for Applesoft program- 
mers, and contains software tools, tips and 
techniques for programming sound effects, 
music, graphics and animation. The book 
includes three utilities (with assembly lan- 
guage subroutines) and 11 example games. 


v 
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CR SOUTHERN CALIFORNIA RESEARCH GROUP 


INSTANT 


Now, you can have APPLEWORKS™ 
built-in. your APPLE //e™. With our 
programming service, your copy of 
APPLEWORKS, and the quik- 
Loader™, your computer can be ready 
within 2 seconds after applying power. 


After receiving your order, we will immediately 
send you a kit containing everything you'll need. 
(Units purchased through dealers will contain the 
kit). Copy your original APPLEWORKS program 
onto the disks included in the kit. Configure the 
program the way you want it used, and return it to 
us in the envelope provided. We will program the 


SWITCH-A-SLOT 
jeer 


Designed by Chuck Shatter 


and the card 


Designed by Joy George 
The SWITCH-A-SLOT is an expansion chassis, which 
allows the user to plug in up to four peripheral cards in one 
slot. One of these cards is selected for use, and only that 
card draws power 


This product is especially useful where the software 
requires the printer to be in a particular slot, and the user 
wishes to choose between two or more printers. 
Se 
SWITCH-A-SLOT and EXTEND-A-SLOT work well 
with most slow to medium speed cards, such as modems, 
printers, clock, music, etc. They are not recommended for 
high speed data transfer devices such as disk drive 
controllers, alternate processor, and memory cards. 
Due to the nature of these products, and unit-to-unit 
variations of computers and peripherals, we are unable to 
guarantee that these products will work with any particular 
system. However, as with all our products, we offer a 
ten-day trial period. If our product does not operate to your 
satisfaction, return it for a prompt refund. 


EXTEND-A-SLOT 


The EXTEND-A-SLOT brings a slot outside your 
APPLE™, allowing an easy change of cards. The 18" 
(45cm) cable is long enough to allow placement of the card 


Hardware design by Bob Brice 


in a convenient location. the high quality 
connectors are gold plated for reliability. $34.95 


at your local dealer or direct from: 


SLOT 3 CLOCK™ 


The SLOT 3 CLOCK will plug 
into any slot of the APPLE Jf, ][+, or 
//e. The main feature is that, unlike 
most cards, it can plug into slot 3 of 
the //e without interfering with the 
operation of the Extended 80-column 
card. PRODOS™ is fully supported, 
is APPLESOFT™ 
compatible. Installation software and 
a long-life DURACELL™ lithium 
battery are included. 


$79.50 


PROmGRAMER™ 


The PROmMGRAMER is an inexpensive 
EPROM (Erasable Programmable 
Read Only Memory) programmer for the 
APPLE Jf, ][+, and //e computers. The 
unit plugs into any slot of the computer, 
and allows the user to program any 
standard 5 volt, 27 series EPROM. 
Although not intended as a production 
tool, the ease of use allows rapid 
programming, copying, duplication, or 
modification of EPROMs. 


$179.50 


SIX MONTH WARRANTY 


Shipping charges: U.S. & Canada $2.50 VISA & MASTERCARD ACCEPTED 
Other: Switch-A-Slot; $10.00 surface; $25.00 air. Other products $5.00 surface; $10.00 air. 


APPLEWORKS 


necessary "chips", install them in the 
quikLoader, verify proper operation, and rush it 
to you. When you receive it, just plug it into any 
peripheral slot. No more searching for your disks, 
waiting for the startup disk to load, swapping to 
the program disk, and waiting even longer. The 
quikLoader is faster and more reliable than even 
a hard disk drive. Updates should be no problem, 
as the "chips" are re-programmable. 


quikLoader— $179.50 


program ming service— 89. 50 
Total— $269.00 
APPLEWORKS and APPLE //e are trademarks of APPLE COMPUTER INC. 
quikLoader (designed by Jim Sather) is a trademark of S.C.R.G. 


SEE A DEMO AT YOUR DEALER 


Paddle-Adspole 


The PADDLE-ADAPPLE is a game plug expansion 
adapter that plugs into the interior game |/O socket, and 
is designed to operate in one of two modes. In the first, 
it allows you select between one of two devices, such 
as Koala Pad™ and joystick. The device is selected by 
the flip of a switch. In the second mode, the PADDLE- 
ADAPPLE, with appropriate software, allows the use 
of two joysticks simultaneously to allow use with games 
such as ONE-ON-ONE™ and ARCHON™. 


There are three versions to adapt to any combination of 
the newer type APPLE connector (the 9-pin 'D' sub- 
miniature), or the older 16-pin plug. 


+ The PADDLE-ADAPPLE has two 
16-pin sockets. 


+ The PADDLE-ADAPPLE COMBO has 
one 'D' subminiature and one 16-pin 
connector. 


Software by Bob Sander-Cederot 


The PADDLE-ADAPPLE 'D' has two 
subminiature 'D' (9-pin) connectors. 


$29.95 


9-16 Adapter 


for APPLE //e & //c 


The 9-16 adapter permits the use of most 16-pin I/O 
devices with the APPLE //e or //c. Plugging this adapter 
into the subminiature 'D' connector allows the use of 
16-pin device, such as the PADDLE-ADAPPLE, 
paddles, joystick, 16 pin Koala Pad™, etc. The only 
limitations are those devices that use the annunciators 
or the $CO4@ strobe. NOTE-the 

/ic does not support two joysticks. $1 4.95 


SScMRGHERGUe TEN DAY RETURN PRIVILEGE 16-9 Adapter 
EAR or APPLE J[ and J[+ 
Post Office Box 593-N i ae With this adapter, owners of early APPLEs can take 
Moorpark, CA 93020 = advantage of the newer 9-pin game products, such as 
Telephone (805) 529-2082 CALIF. (800) 821-0774 omg Joysticks: See voce oe 
Telex: 658340 - SCRG (Intertel SNC) Information (805) 529-2082 DRIGE oonSGeE Nretiaing our PADDLE-ADAPPLE 


COMBO or PADDLE- 
ADAPPLE 'D' instead. $1 4.95 


ProDOS 


DIRECTORY LIST 


by Keith Stattenfield 


TIPS ’N TECHNIQUES 


NUGDAAULAELOOOUOAOONDLANAOELOOOOEOOCOUENOUOOENOOOUEADAAEEOUUCEUOEOUEOAOEUOUHUEUUEEEADUCE ACO AROEOOEOOOEUUCUEAOUAE UEDA OEE OUEE ETE 


se this ProDOS 


utility to list all the files on a disk, including all subdirectories, to a 40- or 


80-column screen or a printer. 


UOUCUAUEAHAUAUVOUUOUDUUUAAAUNOOUOUAOOEOCUUAOUOGAGOGOUOOOEOEOOUEAACAOOLOGOROEOAOAUAUACOUOOOEOEOOGOUADAUAUOOOEOEDEGOOAGOEUSUOGEOEUOUOOOEOOUOOUOAEOEOOEOEOGOOUAUEOOOEUEOEOOUGUEOOEOEOEOOUOUOOUAOONUGOEOEOEOEUAOGONEOGOEOEOEOEOUOOOUCOOOEOOOEUEOOUUCUONEOEOEOUUEOOCOEOOOEOEGEUCVEOEUEOOOOCOUONUOLOUEUOGOCOEUOOUCOOOUOTOEOEOOOUUAOO THO UH THEN 


roDOS is a big step forward in both convenience and 

organization. Unfortunately, to anyone familiar with DOS 

3.3, some things seem very difficult, while others are 
downright impossible. One difficulty is finding out exactly what 
is on a disk. ProDOS allows for multiple catalogs. When you type 
CATALOG, a directory appears that may contain several subdirec- 
tory files. Typing CATALOG followed by a space and the name 
of one of these subdirectories displays a new catalog. This system 
creates a capacity for file organization: one subdirectory may con- 
tain utility programs, while another contains data files, and yet 
another contains text files. ProDOS allows for the interface of hard 
disks, and on a hard disk, this type of file organization is far superior 
to that provided by DOS 3.3. However, on floppy disks, this sys- 
tem can be somewhat confusing. 

It creates a problem. To see all the files on a disk, you have to 
catalog each subdirectory separately, a task that is time-consuming 
and error prone. ProDOS Directory List rescues you from this task. 
This utility program lists all the files in each of the directories on 
any ProDOS disk. 


USING THE PROGRAM 

To use the program, simply RUN it and enter the path name of 
the base directory (or the slot and drive of the disk that contains 
the base directory). The base directory is the directory in which 
the program starts looking. If it finds any subdirectories it will list 
them, and then any subdirectories in these subdirectories are listed, 
and so on. 

If you specify the volume directory for a disk, all of the files 


Keith Stattenfield, 908 Perry Ave., Racine, WI 53406. ProDOS 
Directory List is compatible with ProDOS only. 


on the disk will be listed. If you specify the slot and drive of the 
disk, the program will find the name of the volume directory of 
the disk in that drive and use that name as the base name. 

After the path name has been entered and checked, the program 
asks whether or not to send the output to the printer. Currently, 
the program assumes that the printer is in slot 1, and the format 
string to be sent to the printer is in line 130. (If your setup is differ- 
ent, see HOW IT WORKS below.) If you want to send the listing 
to the printer, press Y; if not, press N. If you press N, then the 
program will ask whether to send output to an 80-column card. If 
you don’t have an 80-column card or if you only want to see 40 
columns of the catalog, press N. If you press Y, the program ex- 
pects the 80-column card in slot 3. 

Next, the listing is displayed. Press <CTRL> S to pause if you 
are listing to the screen. After the listing finishes, you have the 
option to display it again. 


ENTERING THE PROGRAM 
To key in the program, type in the Applesoft program shown 
in Listing 1 and save it with the command: 


SAVE DIRECTORY.LIST 


For help in entering Nibble listings, see ‘‘A Welcome to New 
Nibble Readers’’ at the beginning of this issue. 


HOW IT WORKS 

Unlike DOS 3.3, ProDOS allows an OPEN operation on any type 
of file. This means that if you open a directory file, ProDOS will 
return the catalog line by line. ProDOS Directory List takes the 
following steps to list the catalog: 


1. Opens the base directory as a file of type DIR. 
2. Reads the three descriptor lines at the beginning of each catalog. 


T_T 


January 1986 © Nibble Magazine 109 


3. Reads a line of the catalog. | returns the string in A$. 
4. Checks the MIDS of each catalog entry from the 18th character 
to the 20th character. This is the file type. If this string is DIR, | APPLICATIONS 


then the complete path name of the current file is saved in the ProDOS Directory List could be inserted into another program 
end position of a string array. to streamline the process of finding a file in a subdirectory of several 
5. Goes back to step 3 until the last line of the current catalog has | disks. It could also be converted to machine language and a new 
been read. command added to ProDOS (perhaps something like FIND file- 


6. Checks whether the end of the array, which contains the names _| name), which would scan all of the current devices and return the 
of the next subdirectory, has been reached. If not, the file named | path name of the file in question. 

This same technique could be used to list only certain file types 
in a catalog, or only locked files, for instance. Since the file type 
and file status can be easily determined from the CATALOG string, 
listing just the files with specific characteristics would be very easy. 


TERCERA 


Nibble Light Pen, ProDOS Directory List, ProCursor, 
DISPLAY and programs from Nibbling at Assembly 
Language V are available on diskette for an introduc- 
tory price of $17.95 plus $1.50 shipping/handling 

: : , . ($2.50 outside the U.S.) from Nibble, 45 Winthrop St., 
COC | Concord, MA 01742. Introductory price expires 
3/31/86. 


in the next element in the array is opened as a file of type DIR 
and program flow returns to step 2. 


The program assumes that the printer is in slot 1. If your printer 
is in a different slot, change the number assigned to the variable 
PR% in line 170 (Listing 1) accordingly. Also, change the format | 10 REM ws: ssw ss ss sees oe me seme mae 
string in line 130 to conform to your printer. oe fa Ss ert ore ee 

One interesting part of the program is the “input anything’ rou- | 44 REM . COPYRIGHT (C) 1986 
tine used to get the path name. Its use is simple. The statement: | 59 REM » BY MICROSPARC, INC 


CALL 768,A$:A$=A$+‘” te ee pen 


LISTING 1: DIRECTORY.LIST 


Does copy protection 
have your hands tied? 


SMITH 


BACKUP YOUR SOFTWARE WITH 
LOCKSMITH 6.0™. 


Locksmith, the controversial copy program that 
took the Apple world by storm in 1981, has evolved 
from a powerful bit-copy programmed into a 
complete disk utility system, allowing the Apple user 
to recover crashed disks, restore accidentally 
deleted files, and perform hardware diagnostics on 
the disk drive and memory boards. The NEW 
Locksmith version 6.0 is now available and includes 
an advanced disk recovery utility, a framing-bit 
analyzer, an automatic boot tracer, a sector editor, 
many file utilities, and of course, the most powerful 
bit-copy program available. A fast disk backup utility 
copies disks in eight seconds flat. Improvements to 
Locksmith Programming Language have made it 
more powerful and easier to use for you to write 
your own backup and repair procedures. Includes a NEW LOW PRICE $79.95 
library disk which contains automatic procedures to Registered Locksmith 5.0 owners may upgrade to version 6.0 for $29.95. 


copy hundreds of Apple programs. Available from your computer dealer or directly from: 
Locksmith requires no additional hardware, but 

will use any additional RAM memory that it finds, Alpha Logic Business Systems, Inc. 

including RAM boards from Applied Engineering 4119 North Union Road 

and Checkmate Technology. Woodstock, IL 60098 

Don't get caught with your hands tied. Order (815) 568-5166 

Locksmith 6.0 today. 


©Alpha Logic Business Systems, Inc. 1985 
Locksmith and Locksmith/PC are registered trademarks of Alpha Logic Business Systems, Inc. 
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80 
98 


199 


118 
128 
138 


1498 
158 
168 
178 
189 
198 
208 


2108 
2208 


230 


REM 
REM FS$ CONTAINS THE PRINTER SETUP STRIN 
G 


REM IT IS CURRENTLY SET UP FOR THE GRAP 
PLER INTERFACE 

REM AND APPLE DMP PRINTER. 

REM 

FS$ = CHRS (9) + "8ON" + CHRS (9) + "608 
P" + CHR$ (27) + "E" + CHR$ (27) + "L@® 
19" 


REM 

REM PR% IS THE PRINTER SLOT 
REM 

PR% = 1 

GOTO 2898 

REM 


HTAB 28 - LEN (A$) / 2 + 1: PRINT A$: RETURN 


INVERSE : GOSUB 200: NORMAL : RETURN 

GOSUB 200:A$ = LEFT$ ("---------------- 
rahe is ce iio HS eave ene Spee "LEN (A$)): GOSUB 
200: RETURN : REM 4@ -'S 

VTAB 9: HTAB 1: CALL - 958: PRINT : RETURN 


A$ = "PRESS <RETURN> TO CONTINUE": VTAB 2 

3: GOSUB 200: POKE - 16368,8: WAIT - 1 
6384 ,128 

VTAB 23: CALL - 868: POKE - 16368,8: RETURN 


GET A$:YES = (A$ = "Y") + (A$ = "Y"): ON 
NOT (YES + (A$ = "N") + (A$ = "N")) GOTO 
268: PRINT A$: RETURN 


REM 
REM -- START OF MAIN -- 
REM -- PROGRAM -- 


TEXT : HOME : DIM DIR$(180) 

PRINT CHR$ (17); 

VTAB 2:A$ = "DIRECTORY.LIST": GOSUB 228 
PRINT :A$ = " BY KEITH STATTENFIELD": GOSUB 


The COMMUNICATOR offers an attractive alternative to the 
tedious use of keyboard. It converts voice input into desired 
commands and data entry for all existing programs. This process 
uses Applied Technology Laboratories proprietory speech recog- 
nition algorithms. 

The COMMUNICATOR is completely transparent to the host 
computer hardware and software because it emulates keyboard 
entry. All existing programs are interfaced without any modifica- 
tion. Voice and the keyboard can be used concurrently. 

User definable vocabulary for speech recognition is organized in 
unlimited number of blocks each containing up to 64 words. 
Utility software allows recording and playback of speech. It pro- 
duces a tape recorder like quality sound. The speech response 
file is organized in 20 second (about 40 word) segments. 

The COMMUNICATOR is a hardware-software combination 
system. It contains a plug-in slot independent board with an 
autonomous high speed 6502 compatible processor and 64k of 
memory. The ROM based operating system is supplemented by 
additional utility, application and training programs provided on a 
diskette. Comes complete with instruction manual, demonstra- 
tion program, speaker and a detachable microphone headset. 


200: PRINT :A$ = "s COPYRIGHT (C) 1986 B 
Y MICROSPARC, INC «": GOSUB 299 
349 VTAB 8: PRINT "------------------------- 


358 PTR = 768:DL$ = "------------------------ 
---------------- ": REM !8@ DASHES ! 

368 READ A: IF A> - 1 THEN POKE PTR,A:PTR 
= PTR + 1: GOTO 369 

378 POKE 34,8: HOME 

388 D$ = CHR$ (4) 

398 PRINT D$"PREFIX": INPUT OP$ 

499 GOSUB 238: PRINT "ENTER THE NAME OF THE 
VOLUME OR": PRINT "DIRECTORY FOR THE BAS 
E TO LIST" 

418 PRINT : PRINT "DEFAULT IS ";OP$ 

426 PRINT : PRINT "SLOT AND DRIVE CAN BE SPE 
CIFIED (,S#,D#)" 

438 VTAB 18: PRINT ":";OP$ 

446 VTAB 18: HTAB 2: CALL 768,NP$:NP$ = NP$ + 


450 IF NP$ = "" THEN NP$ = OP$ 
468 VTAB 18: HTAB 2: PRINT NP$ 
478 ONERR GOTO 498 
480 PRINT : PRINT D$"PREFIX"NP$: PRINT D$"PR 
EFIX": INPUT NP$: GOTO 589 
499 GOSUB 238:A$ = "ERROR #" + STR$ ( PEEK 
(222)) + " IN PREFIX": GOSUB 219: GOSUB 
248: RUN 
5@@ POKE 216,98: VTAB 18: HTAB 2: PRINT NP$; : 
CALL - 958: PRINT 
518 VTAB 23: PRINT "LIST CATALOG ON PRINTER? 
: GOSUB 2608 
520 PR = @: IF YES THEN PR = PR% 
538 VTAB 23: HTAB 1: CALL - 868: IF NOT PR 
THEN PRINT "LIST ON 88-COLUMN SCREEN?" 
GOSUB 268: IF YES THEN PR = 3 
549 IF PR = PR% THEN PRINT FS$ 
558 LN = 39 + (48 « (PR > @)) 


continued on next page 


TRAIN YOUR COMPUTER TO 
LISTEN WHEN YOU TALK 


Introducing 


CO)M IM UN TIGA gO}R 


the voice communication system for the Apple II, II+ and Ile. 


@ Alternative to keyboard command and data entry 
@ Spoken words can now control the computer 

@ Interfaces with all existing application programs 
@ No user programming required 


@ Can also record and playback sounds or speech 


APPLIED TECHNOLOGY LABORATORIES 
“We bring science down to business.” 


APPLIED TECHNOLOGY LABORATORIES 
11926 Santa Monica Boulevard Los Angeles, California 90025 (213) 477-6815 


Use the readers response card or inquire direct to receive COMMUNICATOR data sheets. 
Apple Il, Apple lil+ and Apple lle are trademarks of Apple Computer Inc 
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Laing 
Electronics 


MODEMS 


Hayes Micromodem //e 
Smartmodem 1200. 
Smartmodem 2400 
Cable, MAC/Smartmodem . 

Anchor Express 1200/300 

Prometheus Promodem 
Promodem 1200 Macintosh 
Promodem 1200 Apple 


DISK DRIVES 


Micro Sci A2 Drive 

A.5 Half Height Drive 
A.5/2C Drive for lIC 
Controller card 

Mitsuba External Macintosh 
add on disk drive 

Laing Eight inch subsystem 


2.4MB for Apple Il + or //e. 


PRINTERS 


Panasonic KX-P1090 
KX-P1091 

Qume LetterPro 20 

NEC Spinwriter 2010/2030 


APPLE SOFTWARE 


PFS: File. Report. Graph. 
or Write EACH 
Stoneware DB Master 4+ 
Microsoft Multiplan (CP/M) 
Multiplan (DOS 3.3) 
Microsoft Fortran-80 (CP/M) 
Micro Pro WordStar with 
Star-Card CP/M 
Softcraft Fancy Font (CP/M) 
United Ascii Express Pro. 
DOS 3.3 Version 
PRO Dos Version 
Monogram Dollars & Sense 
Megahaus Megaworks 
Broderbund Print Shop 
Print Shop Graphics Libraries 
#1 and #2 (Each) 
Living Videotext Think Tank 


342.00 


290.00 


159.00 
161.00 
169.00 

38.00 


279.00 


875.00 


187.00 
245.00 
439.00 
699.00 


MACINTOSH SOFTWARE 


Microsoft Multiplan 

Mac Word 

Mac File 

Mac Chart... . 

ALL FOUR ABOVE SPECIAL 
Microsoft Mac Basic 

PFS: File & Report 

Living Videotext 

Think Tank 128k 

Think Tank 512k 

Lotus Jazz 

Hayden Speller 

CSD Maclion 

Stoneware DB Master 
Videx Mac Calendar 
Monogram Dollars & Sense 
Megahaus Magafiler. 
Magamerge. Megaform, and 
Megadesk (Business Pack) 


MONITORS 


Amdek Video 300 A 
Color 300 Composite 
Color 500 Composite/RGB 
Color 600 RGB HI-RES 


Videx Ultraterm 
Orange Micro Grappler + 
Buffered Grappler + 16k 
Buffered Grappler + 64k 
PCPI Appli-Card 6Mhz 
64k RAM Extender 

128k RAM Extender 
Checkmate Technology 
/fe 80Ram 64k 

MultiRam //e 64k 
expandable to 1.5MB 
Zee 80A CP/M Card 
(without software} 
Microsoft Softcard |! 

CCS 7711 Super Serial 
Apricorn serial (7710) 
Titan Accelerator //e 
Vista A-800 8” Controller 
Micro Sci //e 80 col. 64k 
Apricorn 16k card. II or Il+ 
Kensington System Saver 


127.00 
117.00 
117.00 

75.00 
349.00 


60.00 
62.00 


PERSONAL AND COMPANY CHECKS ALLOW 10 BANKING DAYS TO CLEAR. ALL 
PRICES ARE PLUS SHIPPING ($2.50 SOFTWARE, $5.00 HARDWARE). SCHOOL AND 
GOVERNMENT PURCHASE ORDERS ACCEPTED. SPECIFY COMPUTER ON SOFTWARE 
(iE, Il, 1+, MAC). CALIFORNIA RESIDENTS ADD 6% SALES TAX. PRICES AND 
SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE. 


ammme) (714) 534-4216 


12821 WESTERN AVE., UNIT E 
GARDEN GROVE, CA 92641 
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LISTING 1: DIRECTORY.LIST (continued) 


568 Pl = 1:P2 = 1:DIR$(1) = NP$ 

578 REM 

588 REM - PERFORM THE CATALOG - 

598 REM 

600 TEXT HOME 

618 PRINT PRINT D$"PR#":PR: IF PR = PR% THEN 
PRINT FS$ 

620 PRINT D$"OPEN "DIR$(P1)".TDIR" 

630 PRINT D$"READ "DIR$(P1) 

648 INPUT T$: PRINT "CATALOG OF “:DIR$(P1) 

658 INPUT T$: PRINT LEFT$ (T$.LN) 

660 INPUT T$: PRINT LEFTS$ (DL$.LN) 

678 ONERR GOTO 778 

688 INPUT NAME$:NAME$ = NAME$ + "" 

698 IF NAME$ = ""“ THEN 776 

700 TY$ = MID$ (NAME$.18.3) 

718 PRINT LEFTS (NAME$,LN) 

728 IF TY$ < > "DIR" THEN 688 

738 NAMES = MIDS (NAME$.2,16): IF RIGHTS (D 
IR$(P1).1) < > "/" THEN NAMES = "/" + N 
AME $ 

748 IF RIGHTS (NAME$,1) = " “ THEN NAME$ = 
LEFT$ (NAME$, LEN (NAME$) - 1): GOTO 74 
4) 

75@ P2 = P2 + 1:DIR$(P2) = DIR$(P1) + NAME$ 

768 GOTO 688 

778 REM 

788 REM - WE'RE DONE WITH THAT CATALOG, 

798 REM SO CLOSE THE DIRECTORY & DO 

880 REM THE NEXT ONE - 

818 REM 

828 PRINT PRINT D$"“CLOSE" 

830 IF Pl = < P2 THEN Pl = Pl + 1: GOTO 6208 

840 IF PR AND PR < > 3 THEN PRINT D$"PR#O” 

858 VTAB 24: HTAB 1: CALL - 868: GOSUB 248 

860 VTAB 23: HTAB 1: CALL - 868 

878 PRINT “PERFORM ANOTHER CATALOG?":: GOSUB 
2608 

880 IF YES THEN RUN 

898 TEXT HOME END 

908 REM 

918 REM - INPUT ANYTHING MACHINE CODE DATA 

928 REM 

932 DATA 32,198,222, 32,227,223 ,162,8,.32.117, 
253.168,8,138,145,131,200,169.8,145.131. 
208.169.2.145,131.32.57.213.96 

948 DATA -1 


END OF LISTING 1 


——————————— 


KEY PERFECT 5.2 
RUN ON 
DIRECTORY .LIST 


CODE -5 .9 LINE# - LINE# CODE -4.2 
7C62FD67 10 - 18 7588 
DAF88DD9 110 - 286 4291 
A698B7C4 218 - 3008 AG76 
1A3753F4 318 - 488 C996 
6171C152 410 - 588 795A 
4F@12FD2 518 - 698 679C 
39F36578 618 - 7808 6746 
BCFC®CCE 718 - 888 7266 
FOOFFCO2 818 - 988 48A9 
@D5D3B28 919 948 4B3B 
8AE7AAFS = PROGRAM TOTAL = 89B6 


APPLEWORKS 
ENHANCEMENTS 


Read why Applied Engineering 
is the acknowledged leader in AppleWorks enhancements 


B@ Applied Engineering was first to expand ® Applied Engineering was first to increase the 
Appleworks beyond 55K. maximum number of records in the data base 
from 1350 to 16,300. 


@ Applied Engineering was first to increase the 
number of lines in the AppleWorks word 
processor from 2250 to 16,300. 


@ Applied Engineering was first to eliminate disk 
access On Drive 1 in Appleworks, thereby 
dramatically speeding up the program and 
reducing disk drive wear. 

@ Applied Engineering was first to display the 


@ Applied Engineering was first to expand time and date on the AppleWorks screen. 
AppleWorks to 1 megabyte of memory. @ Applied Engineering was first to provide auto 
dating as part of the data base field. 


M@ Applied Engineering was first to provide auto 
time stamping as part of the data base field. 


@ Applied Engineering was first to expand 
AppleWorks to 3 megabytes. 


@ Applied Engineering was first to provide auto @ Applied Engineering was first to include a built- 
segmenting on large files so any size file can be in print spooler for AppleWorks. So you're back 
saved on regular floppies. in AppleWorks in 10 seconds not 10 minutes. 


With all of these firsts, its no wonder most people choose Applied Engineering when they want 
enhancements to Appleworks. Especially when you consider that nearly all the “firsts” listed above are 
“onlys” too. And our Appleworks enhancements are as easy to use as inserting a disk and pressing return 
because all enhancements are merged with the AppleWorks program disk and stay there out of sight until 
needed, only now AppleWorks will run up to 20 times faster, and be easier to use at the same time. 


And we're working on new improvements to AppleWorks all the time, so the few remaining criticisms the 
software reviewers gave AppleWorks will vanish forever. So if you want more out of AppleWorks, order 
RamWorks II” and Timemaster H.O.™ for the Ile or Z-RAM™ and IIc System Clock™ for the Hc. You'll find 
specifications and prices for these products listed in this magazine. Please look for Applied Engineering in 
the advertiser's index. 


There’s no question about how they'll increase your productivity. The only question you'll have is how 
you ever got along without them. 


214-241-6060 


y = 


APPLIED ENGINEERING 
**We Set the Standard’”’ 


What you should know about 
the International Apple Core. 


If you’re like most Apple users, you don’t 
realize the many benefits of an IAC member- 


ship. Or what it can do for you and your 
computer. 


So what’s an IAC? 


International Apple Core™ is a non- 


profit organization of Apple users and user 


groups. We are dedicated to providing educa- 


tion, information and support to users of 
Apple and Apple-compatible products. 


We aren't just for clubs. An individual 
can enjoy all the special benefits we have been 


providing user groups since 1979. You may 
share information on new applications. Or 


learn the latest on products. Or keep up on 

Apple events. Even receive specialized training. 
If you'd like to join a local user group or 

contact other Apple enthusiasts, we can help 


you find them. 


A membership 
that pays you 


As a member of IAC you nearly get paid 
with what you will save. By joining you will 
save nearly $20 on our electronic spreadsheet, 


IACcalc™. Not to mention all the other 
benefits only available to you as a member. 


Information, please. 
IAC provides many sources of infor- 


mation. Your $30 yearly membership fee brings 


a 12-issue subscription to Nibble magazine 
devoted to Apple systems and compatibles. 


Nibble features more than $50 worth of ready- 
to-run Apple programs in each issue. The pro- 
grams focus on home, business, education and 
entertainment. Nibble also features new pro- 
ducts, reviews, tips and techniques for learning 
more about your Apple and having fun doing it! 
You will be eligible to receive the [AC 
Disk of the Month, a subscription to user con- 
tributed software. Each disk presents themes 


like games, education, or a potpourri. 


Get an education. 


You'll receive many educational benefits 
from our software programs. Our 3Pak™ series 
of theme packaged programs includes Educa- 


tional, Financial, Games and the popular 
Logo. We have an Applesoft Tutorial and 
Education disk which is great for children. 


Support for your 
Apple and you. 
For as little as $50 annually and no 


deductible, you can protect your hardware, soft- 


ware and disks for up to $15,000. 


Attach-Bios and CP/M — SOS Converter 
are ideal disks for Apple II Pascal and Apple 
II] CP/M® application writers, vendors and 
users. All documentation is on the disks and 


no softcard is required to run Converter. 


Invite your friends 
and save. 


IAC offers user groups a special package. 

For $90 your group receives a full year [AC 
membership and a subscription to Nibble. In- 
cluded are the Disks of the Month and a 
listing of other IAC affiliated user groups 
world wide. 

Individually or as a group you can't lose. So 
fill out the membership coupon below. And 
don’t forget to ask for our product catalog. 


Apple, Apple II, Apple II] and SOS are registered trademarks of 
Apple Computer, Inc. 

International Apple Core is Licensed by Apple Computer, Inc. 
to use certain of the latter's trademarks. 


Membership Application 


$30 US. Individual 
$40 Canada & Mexico Individual 


Name 


Address 


The companies we keep. 


Here is a list of the corporations 
that support and sponsor the International 
Apple Core. 


Apple Computer Inc., Cupertino, CA 

Brock Software Products, Crystal Lake, IL 
Burtronix, Orange, CA 

Digital Research, Pacific Grove, CA 

East Side Software Co., New York, NY 
Educational Software Products, Glencoe, IL 
Electronic Arts, San Mateo, CA 

General Microcomputer, Inc., Michigan City, IN 
Hayes Microcomputer, Norcross, GA 
Houston Instrument Division, Austin, TX 
Howard D Sams Co. Inc., Indianapolis, IN 
M&R Enterprises, Santa Clara, CA 
Maeworld, San Francisco, CA 

Multi-Tech Systems, Inc., New Brighton, MN 
Nestar Systems, Inc., Palo Alto, CA 
Nibble/microSPARC, Inc., Concord, MA 
Source Telecomputing, McLean, VA 

Sundex Software Corporation, Boulder, CO 
Turning Point Software, Watertown, MA 
Vagabondo Enterprises, Aptos, CA 


Verbatim Corporation, Sunnyvale, CA 


1ACcale and 3Pak are trademarks of International Apple Core. 
CP/M is a registered trademark of Digital Reseaich 


Nibble is a registered trademark of microSPARC, Inc 


1 $72 International Individual 

0 $90 U.S. User Group Package 

O $152 International User Group Package 

CJ I’m already a Nibble subscriber. 
Please extend my subscription. 


City 


State/Zip 


All Memberships Include 
a 12-Month Subscription to Nibble. 


Please allow 8-10 weeks for delivery of 
your first Nibble. 


Country 


_] Payment enclosed (U.S. funds only) 
L) VISA 
_] Please send your product catalog. 
Charge Card No. 


L} MasterCard 


Interbank No. 


APPLE CORE™ 
Membership Dept. #N-O1 
908 George Street 


Expiration Date 


MO DAY YEAR 


Santa Clara, CA 95054 
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ProDOS OUTPUT 
PROCESSING 


OUUOUUUTTONEUEUAEUOOUEODUUOEEUUUAODUUNEEAOUEE TUNED ENED LTT 


PECL C LLCO 
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(MANLAAVOOUEOAUOOOUEUOEOODUELOOAEOOEOOUONOOONUOAUOEOUAUGOAEOAOOUOEUOEOOOOODAOOADOOONOUEOOOUOUOOVEDOLOCOOEUAUUEOOEUEAEUEEOEAEUOEOAOOOORUEUAOOEOOOUEOUEUEVOOUEUUHOOUEOHEUACOEOUOUOOUDUEOUCHOCUCLODOCOUEUEOEOUOOEOCOOEOOEOEOUCOOU EEE 


he ProDOS BASIC 


interpreter’s output handling routines, along with the 
relevant Applesoft output routines, are analyzed. In 
addition, a fix for a BI bug is provided. 


UOUUUAUOUNUNONOONUOOONOGEONNUEOOOOOOONOONOOOGOCONONODOOOOOOAGOODNONOONOONOOONOEOOONOOOGUODOGUODOUONONOnOUNODOCLEONOUNONOONONEONONNONONEUANEONELEONEOOELOOOEDOONEONOUOOOGOEOONLOOOEONOOOOOOOOOONOEOOELINOCOOOOUOOEDOOUEDOEOOUOOOOELOOOCOUELEUOOOOOOOOOEDEOOEUOUOEOOEOOOOEOOOLOUOEOONOONOEUOGUOOOEOOOOOOOOOOOOOOUOLOOOOOUOLOUOONEOUOOONEHOEL 


he last installment of Disassembly 

Lines (Vol. 6/No. 11) examined 

input processing by the ProDOS 
BASIC interpreter (BI). This time we take 
on the complex and somewhat top-heavy 
code associated with character output. The 
bloated output code stems from the incor- 
poration of trace mode into the BI (DOS 3.3 
ignores tracing). 

More exciting even than the disassembly 
was the detective work required to isolate 
a BI bug that flips trace mode on and off 
at inopportune moments. If you are a fan 
of A. Conan Doyle or Agatha Christie, you 
will find this section downright exhilarating. 


OUTPUT STATES 

You may want to review the descriptions 
of I/O hooks, vectors and states in the last 
D/L column. State numbers designate an 
index into the I/O state table ($B7F7 for BI 
1.1; $B851 for BI 1.0). Whereas input is 
processed by two state handlers, immediate 
(KSTATEO) and deferred (KSTATE48), 
output requires four separate routines: 
STATE 0 (immediate mode), STATE 4 
(deferred mode), STATE 8 (assembling 
command line in deferred mode), and 
STATE D (checking for <CTRL>D). 


by Sandy Mossberg, 50 Talcott Rd., Rye 
Brook, NY 10573 


APPLESOFT ROM 

Before tackling BI output processing 
(Listing 1), we must understand the inter- 
action between Applesoft ROM and the BI. 
Listing 2 includes several Applesoft rou- 
tines, two of which were published in earlier 
D/L columns (NEWSTT from Vol. 4/No. 2, 
and OUTDO from Vol. 4/No. 4). Both of 
the original columns are contained in Dis- 
assembly Lines, Volume 1, a compendium 
of articles about Applesoft ROM. Only per- 
tinent sections of the code will be covered 
here. 

First, let us briefly review how Applesoft 
stores programs. Keywords (i.e., statements 
or commands) are converted by PARSE 
($D559) into tokens, each of which is stored 
in program memory as a negative ASCII 
(high bit set) byte. Numerals and variables 
are kept in positive ASCII (high bit clear) 
format. When the Applesoft interpreter 
searches a program and finds a negative 
ASCII character, a token is inferred and pro- 
gram flow is transferred to the handler for 
that particular token. We shall observe how 
this works later on. 

All Applesoft statements, immediate and 
deferred, are processed by NEWSTT (lines 
46-109 of Listing 2). After some housekeep- 
ing chores, execution begins at line 75, 
where the Applesoft trace flag is tested. If 
clear (line 76), flow drops to GETSTT (line 
86), where the next program byte is obtained 
and processed (lines 87 and 92-103). If the 


trace flag is set, lines 77-78 ensure that 
immediate mode is not active, and line 81 
prints the trace character (#) by calling 
OUTDO (lines 115-125), the standard 
Applesoft output subroutine. To make cer- 
tain that the BI would control all tracing 
activity, the Apple’s software writers re- 
solved that the Applesoft trace flag must 
always be set so that the BI could gain con- 
trol when OUTDO calls COUT. (Remem- 
ber, COUT jumps to the address at $36-$37, 
which is the current BI intercept.) 

Thus, the master plan is to trap all Apple- 
soft new statement processing at OUTRACE 
(line 81) and control true tracing within the 
BI. As we dissect the BI output code in List- 
ing 1, we shall learn how this process 
works. 


IMMEDIATE MODE 

The STATE 0 output handler begins by 
checking if the character to be output is the 
trace character whose image is stored at 
$9F61 ($9F98 in BI 1.0) in line 521 of List- 
ing 1. Except for one circumstance, noted 
later, TRACECHR is the expected pound 
sign (#). If the trace character is not being 
printed, flow drops to lines 109-116, where 
the character is echoed if it does not repre- 
sent a consecutive carriage return (CR). 
Lines 120-126 suppress a consecutive CR 
only if it occurs at the start of a line and a 
BI command is not pending. (The necessity 
for this manipulation is beyond my ken. If 
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someone can enlighten me, I shall be in your 
debt.) The ‘‘command pending”’ decision is 
made by testing the first character in the BI 
text buffer, TXBUF (also called path name 
buffer and command buffer), for ASCII $3F 
(the question mark) or greater. Since com- 
mands and path names begin with alphabetic 
characters, it would seem more appropriate 
to test for ASCII $41 (A) or greater. 

If the trace character is being output, X 
is saved (line 90) and lines 91-96 determine 
whether the output request comes from 
OUTRACE (that important line 81 in 
NEWSTT). This technique requires expla- 
nation. When JSR OUTDO is executed at 
$D810 (OUTRACE) and JSR COUT is sub- 
sequently executed at $DBSF (PRCHR), the 
stack contains both return addresses (minus 
one) (see Table 1). If the lower address is 
$D812, OUTRACE output is confirmed, in 
which case, control drops to lines 101-105, 
where deferred mode is set and the trace 
character is printed via the STATE 4 out- 
put handler. I suspect that these latter lines 
were designed to trap inadvertent entry into 
immediate mode from deferred mode, but 
I do not understand how OUTRACE can be 
called from immediate mode because EXE- 
CUTE (lines 75-88 of Listing 2) skips OUT- 
RACE if immediate mode is operational. 
Again, I solicit your help in understanding 
how lines 101-105 can ever be executed. 

If the trace character is being printed, but 
Applesoft is not tracing (i.e., output does 
not come from OUTRACE), line 97 
branches to lines 130-131, where X and the 
trace character are restored and flow drops 
to the character output routine. 


CHARACTER OUTPUT 

After placing the true I/O handler 
addresses at the I/O hooks (line 137), the 
target character is printed. If it is nota CR 
(lines 142-143), exit occurs by restoring the 
true I/O handlers to the global page and re- 
setting the BI intercepts. 

The BI assiduously maintains the Apple- 
soft trace flag at a value of $A5. When the 
TRACE or NOTRACE command is given 
in immediate mode, Applesoft kicks flow to 
the appropriate statement handler (lines 156- 
163 of Listing 2) where either a set carry 
(TRACE) or clear carry (NOTRACE) is 
rotated into bit 7 of TRCFLG. (The old skip- 
a-byte trick is used in line 157 to create the 
expression BCC $F288 for the purpose of 
bypassing the CLC instruction when entry 
is at TRACE.) When the BI next gains con- 
trol to output a CR, lines 147-148 of List- 
ing 1 test for a change in the Applesoft trace 
flag. If not found, the BI knows that either 
NOTRACE or TRACE has been executed 
in immediate mode. In such a circumstance, 
TRCFLG would contain either $52 (NO- 
TRACE rotates $A5 right and clears bit 7) 
or $D2 (TRACE rotates $A5 right and sets 
bit 7). Therefore, if the trace flag has been 
changed, line 150 stuffs the rotated value 


(e.g., $52 or $D2) into the true BI trace flag 
(DTRACE), and lines 151-152 reset 
TRCELG to $AS5. The CR is restored to the 
Accumulator (line 153) and exit occurs. 


DEFERRED MODE 


STATE 4 

VSTATE4 is the main code for processing 
output in a running program. The initial 
segment (lines 279-287) is identical to 
YSTATEO. If output is coming from 
OUTRACE, control branches to BI trace 
processing, which is detailed in the next 
section. If nontrace output is encountered, 
the entry A and X Registers are restored 
(lines 292-293) and file output activity is 
tested. If a character is being written to a 
file and that character is neither the immedi- 
ate mode prompt nor a CR, it is output forth- 
with (lines 301-309). If the right bracket 
prompt is being printed (line 304), flow re- 
sumes at lines 349-350, where registers are 
saved and files are tested. If no file is open 
(line 352), registers are restored (line 363) 
and the immediate mode prompt is echoed 


TRACE PROCESSING 

When OUTRACE output is confirmed in 
VSTATE4 (line 288), control passes to 
BITRACE (lines 381-517), which processes 
Applesoft tokens and controls tracing of 
Applesoft and ProDOS BASIC statements. 
Entry is always at line 383 where the low- 
order byte of the text pointer is incremented. 
If a page boundary is encountered (line 384), 
lines 381-382 increment the high-order byte. 
Lines 388-389 set PROMPT equal to $FF. 
If this value is unchanged when the STATE 
4 handler regains control, consecutive non- 
tokens are flagged, and lines 313-314 use 
this condition to detect successive CRs. 

After restoring the stack pointer (the S- 
Register) to its value on entry to NEWSTT 
(lines 46-47 of Listing 2), which effectively 
pops two addresses from the stack, 
DTRACE, the true BI trace flag, is tested 
(line 398). If it is active (line 399), control 
passes to lines 494-504, where the trace 
character and line number are printed, and 
program flow is routed back to line 403. 

If DTRACE is inactive, program flow 
falls to lines 403-404, where the next pro- 


TABLE 1: Stack Contents When Applesoft Is Tracing 


(line 364). On finding one or more files 
open, lines 355-364 flush buffered data, 
clear the file output flag, set true I/O han- 
dlers, print FILE(S) STILL OPEN, restore 
registers and echo the right bracket. 

If file output is active and a CR is found, 
lines 313-314 check PROMPT ($33) for 
consecutive CRs (see the explanation 
below). Whereas a single CR is written 
directly to the file buffer (line 316), two 
CR’s in sequence flush the file buffer (line 
317), clear the file output flag (line 318), 
and print the CR to the screen or printer 
rather than to the file buffer (line 320). 

If file output is not active (line 295), con- 
trol passes to lines 325-327, where the active 
file and/or prefix input are tested. If it’s 
found and if the input token is being pro- 
cessed in lines 332-335 (token handling is 
described below), the echo of the question 
mark prompt is suppressed by lines 368- 
375. Again, this double-CR handling mys- 
tifies me. 

If neither file output nor file/prefix input 
is active (line 328), lines 339-343 echo all 
but the immediate mode Applesoft prompt 
character. 


gram character is obtained. If a token is 
found (line 405), processing resumes at line 
436. If the end-of-line marker (zero) is 
picked up (line 406), a branch to lines 429- 
430 conditions the processor status byte (P- 
Register) and flow jumps to one instruction 
beyond GETSTT (line 87 in Listing 2). If 
a nontoken is located, lines 410-420 are 
responsible for the automatic garbage col- 
lection that is such a convenient feature of 
ProDOS BASIC. 

STRINGS ($BE49) is an arbitrary counter 
that is decremented each time a nontoken 
is picked up. Every so often (i.e., when 
STRINGS equals zero), free space is tested. 
If three pages or more are free, garbage col- 
lection is deemed unnecessary. Less than 
three pages of unused space triggers flush- 
ing of the temporary (general purpose) data 
buffer, full-scale garbage collection and 
reset of STRINGS. In either circumstance, 
flow resumes at lines 424-425, where the 
same nontoken is obtained and control is 
routed to Applesoft ROM (lines 429-430). 

Token processing (line 436) is the start 
of the real fun. Since the BI has intercepted 
Applesoft statement processing, it must pro- 
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Add‘! Fonts & Char 
Addition Magician 
Adventure Const. 


Algebra | thru lV ea. 


Algebra V & VI 
Alphabet Zoo 

Alpha Plot 

Amazon 

Appie Mechanic 
Archon 

Archon tI 

ASC II Pro 
Assembly Lines 
Axis Assassin 
Back-it-up Ill 

Bag of Tricks 

Baltic "85 

Bank Street Filer 
Bank Street Mailer 
Bank Street Writer 
Bank Street Speller 
Baron 

Battle for Normandy 
Battle of Shiloh 
Beach Landing 
Beagle Bag 

Beagle Basis 
Beagle Graphics 
Beneath Apple DOS 
Bnth. Api. Pro DOS 
Black's Law Dict. 
Blazing paddles 
Bomb Alley 
Bookends 
Bookends Extended 
Breakthru Ardennes 
Broadsides 

Bumble Games 
Bumble Piot 
Carmen Sandiego 
Carrier Force 
Carriers at War 
Captain Goodnight 
Cartels & Cutthroats 
Castle Wolfenstien 
Cat Graphics 
Chshp. Load Runner 
Chess 

Chart 'n Graph Tibx. 
Chivalry 

Chop Lifter 

Clip Art 

Compiete Graphics 
Computer Amoush 
Computer Baseball 
Computer Bismark 
Computer Ortrbck. 
Copy I+ 

Coveted Mirror 
Creature Creator 
Crossword Magic 
Crypt of Medea 

Cut & Paste 
Cutthroats 

Datalife Analyzer 
Dazzle Draw 

OB Master 3 

OB Master 4 

O6 Master Utility Pk 
OB Stat Pack 


13.95 
22.95 
32.95 
26.95 
34.95 
18.95 
24.89 
27.49 
16.99 
22.45 
24.49 
76.95 
16.95 
14.89 
49.95 
24.99 
24.95 
40.99 
40.99 
40.99 
40.99 
32.89 
25.89 
27.95 
23.99 
18.49 
19.45 
31.70 
13.95 
13.95 
69.95 
34.95 
41.95 
69.95 
104.95 
41.95 
27.95 
24.95 
24.95 
23.99 
41.95 
31.99 
24.95 
27.95 
19.99 
20.95 
23.95 
48.95 
23.95 
32.99 
22.89 
19.99 
47.89 
41.95 
25.89 
41.95 
27.95 
19.99 
20.89 
27.98 
30,89 
21.95 
23.70 
23.70 
21.95 
36.99 
159.95 


204.95 


89.95 
89.95 


Deadline 

Delta Drawing 

Disk Arranger 
OiskQuick 

Oisk Repair Kit 
Dollars & Sense 
Dollars & Sense liC 
00S Boss 
Double-Take 
Oragonworld 
Eagles 

Early Games 
Enchanter 
Epidemic 

Essential Data Dup 
Expedition Amazon 
Extra K 

Facemaker 
Farenheit 451 

Fat Cat 

Fat City 

50 Mission Crush 
Fighter Command 
Financial Cookbook 
Flashcalc 

Flex Type 

Flight Sim. Il 
Fontrix 


Frntpaks 1 thru 13 ea. 


Forecast 

Format Il 

Fortress 

Fraction Factory 
Fraction Fever 
Frame-Up 

Gato 

Gemstone Warrior 
General Manager Il 
Geopolitique 1990 
Germany 1985 
Gertrude's Puzzles 
Gertrude's Secrets 
Goren Bridge 
Grandma's House 
Graphics Department 
Graphics Magician 
Graphworks 

GPLE 

Guadaicanal 

Hard Hat Mack 
Hey Diddle Diddle 
Hitchhiker's Guide 
Home Accountant 
Home Cataloger 
Homeword 
Homeword Filer 
Homeword Speller 
Image Printer II 
Infidel 

1.0. Silver 

Jane wimouse 
Juggie's Rainbow 
Kamfgrupe 
Karateka 

Kids on Keys 

Kid Writer 

Kinder Comp 
Knight of Diamonds 
Knights of the Desert 
King's Quest 
Know Yr. Api. E&C 
Last Gladiator 


144.95 
25.69 
38.89 
27.95 
27.95 
51.95 
17.95 
82.95 
36.89 
69.95 
26.99 
41.95 
12.99 
17.99 
22.70 
47.95 
34.95 
46.95 
46.95 
92.95 
34.95 
26.70 
16.95 

199.95 
18.95 
41.95 
21.99 
17.95 
18.89 
17,95 
20.99 
27.95 
34.95 
17.95 
12.99 


Legacy of Llylgamyn 23.99 
Lisa 2.6 Assembler 53.70 
List Handler 53.99 
Locksmith 64.95 
Magic Paint Brush 24.95 
Magic Spells 22.95 
Magic Window II 93,89 
Magic Window IIE 93.89 
Make a Match 20.95 
Map Pack 13.95 
Mask Parade 27,95 
Mastering the GRE 69.95 
Mastering the SAT 69,95 
Master Type 24,89 
Math Blaster 28.70 
Math Maze 27.95 
Merlin 35.95 
Merlin Pro 57.95 
Merlin Combo 63.95 
Micro Cookbook 22.99 
Mickey's Space Adv. 27.95 
Micro Lg. Baseball 27.95 
Micro Speed Reading 83.95 
Millionaire 32.89 
Miner 2049er 25.95 
Mortgage Analyzer 59.95 
MouseWrite 86.95 
Most Amazing Thing 22.95 
Multi Disk Catalog 17.95 
Multiplan DOS 3.3 $5.95 
Munch-A-Bug 23.95 
Murder by the Dozen 21.99 
Music Construction 24,99 
Napoleon's Campaign 41.95 
NATO Commander 24.95 
Net Worth 48.89 
Newsroom 34.95 
North Atlantic 86 38.89 
Objective Kursk 25.89 
Old Ironsides 23.99 
One-On-One 25.45 
Operation Market Gar. 34,95 
Paper Graphics 30.89 
Pattern Maker 26.95 
Pensate 20.95 
PFS: Access 41,95 
PFS: Write 71.49 
PFS: File 71.49 
PFS: Plan 71.49 
PFS: Report 71.49 
PFS: Graph 71.49 
PFS: Best Sellers 149.99 
PFS: Solutions ea, 14.95 
Phantasie 27.95 
Piece of Cake Math = 21.95 
Pie Writer 98.95 
Picture Builder 23.99 
Pinball Construction 23.99 
Pixit 31.89 
Pianetfail 23.70 
Practicalc I 48.95 
Prince 48.95 
Printographer 28.99 
Print Sh 27.70 
Pr. Shp. Gr. 41,2073 14.99 
Print Shp. oecann 27.95 
Print Shop Refill 13.95 
Probyter 19.45 
Prof. tour got 25.89 
Pronto DO! 16.45 
P-Term 90.95 
Puzzle Master 24.95 
Quest 21.89 
Questron 21.89 
ROF 24,95 
Reach for the Stars 29.99 


SILICON EXPRESS 


5955 E. Main St. 


Columbus, Ohio 43213 
1-614-868-6868 


Reader Rabbit 
Retorger ‘88 
Rendezvous w/Rama 
Report Card 
Rescue Raiders 
Return of Werdna 
Rhymes & Riddles 
Ring Quest 
Robot Odyssey | 
Robot War 
Rocky's Boots 
Run For the It 
Sargon lil 
Sat (Harcort Brace) 
Seastalker 
Sensible Speller 
7 Cities of Gold 
Shadowkeep 
Sideways 
Silicon Salad 
Skyfox 
Snooper Trp | or 2 
Solo light 
Songwriter 
Sorcerer 
Speed Reader |! 
Spellagraph 
Spell Akazam 
Spellicopter 
Spell tt 
Spitfire Simulator 
Spy Hunter 
Spy vs. Spy 
Squire 
Starcross 
Stellar 7 
Sticky Bear ABC 
Basket Bounce 
BOP 
Math 
Numbers 
Opposites 
Reading 
Shapes 
Story Machine 
Story Maker 
Summer Games 
Summer Games II 
SuperCalc 3A 
Super Disk Copy 
Suspect 
Sword of Kadash 
Take 1 
Technical Dictionary 
Terapin Logo 


ADDRESS 


CITY 


Phone No. 
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41.95 
59.95 


Think Tank 
Three Mile Island 
Tigers in the Snow 
Time is Money 
Tip Disk #1 
Trains 
Transitions 
Transylvania 
Tripie-Dump 
Turbo Pascal 3.0 
Turbo Tutor 
Tycoon 
Typing Tutor 
ping Tutor Il 
ume iH 
Ultima Ul 
Ultima iV 
Understanding iE 
Understanding ll + 
Univ file conv 
Utility City 
Versatorm 
Video Toolbox 
Visable 6502 
War in Russia 
Wilderness 
Will Writer 
Winnie the Pooh 
Wishbringer 
Witness 
Wizardry 
Wizard's Toolbox 
Wiztype 
Wizmath 
Wizprint 
Word Attack 
Word Handler 
Word Spinner 
Wordstar 
Write Choice 
Xyphus 
Zaxxon 
Zork | 
Zork Il or ill 
Z-Term 


HAROWARE 

80 Col. 64K Card 
Alphabits 

Apple Cat 
Compuserve Starter 
Datacase 

Disk Notcher 
Echo + 
Flip-n-File 
Grappler Buttered 
Grappler + 


Grappler (serial) 
Grappler C 


YOUR ORDER FORM 


Hotlink 
Keytronics Keybd. 
Koala Pad + 

Lemon 

Lime 

Mach Il I+ Joystick 
Mach Il IIE Joystick 
Mach Ill 1+ Joystick 
Mach Il HE cy is 
Micromodem JIE 
Microsci A2 Drive 
Microsci lIC Drive 
Mockingboard A 
Mockingboard B 
Mockingboard C 
Mockingboard D 
Multiram CX (16 bit) 
Multiram 2X (16 bit) 
Multiram IC 256k 
Muttiram (IE 80/64K 
Muitiram iE 80/256K 
Multiram WE 80/152 
Multiram IIE 80/768 
Multiview Ii+ 80/160 
Muppet Pad 

Orange Interface 
PaC IIC Interface 
Paddlesticks 

Peach 

Prometheus 1200A 
Prometheus 1200 
PSIO Card 

Super Fan 

Hf abl Saver Fan 
Ultraterm 

Videoterm 

Wildcard 2 

ZEE 80A Checkmate 
Zoom ME 


PRINTERS 


Star SG-10 

Star SG-15 

Star $D-10 

Star SO-15 

Star SR-10 

Star SR-15 

Star Powertype 
Okidata 192P 
Okidata 193P 
Dalsywriter 2000 
Juki 6100 
Colored Printer Rbns 
Color Paper Pack 


MONITORS 

Amdek Color 300 
Amdek Color 500 
Amdek Color 600 
Amdek Video 3006 
Amdek Video 300A 
Amdek OMY lil 


SILICON EXPRESS 


Computer Type 


5955 E. Main Street Columbus, Ohio 43213 
NAME 


399.95 
559.95 
884.95 
424.95 
CALL 
13.95 


229.99 
939.99 
414.99 
127.99 
137.99 
129.99 


STATE 


CHARGE CARD #0 St C“‘“‘(‘C#dE Vy. : Date 


: DESCRIPTION 


SHIPPING 
TOTAL 


ee ZIP 


No additional surcharge on Mastercard, Visa, or School purchase orders. Personal checks 
allow 2 weeks. Shipping charges are $2.50 minimum. Ohio residents add 542% state sales 
tax. Prices subject to change without notice 


vide reentry to NEWSTT (as noted above 
in lines 429-430). Before it does so, how- 
ever, the BI imposes its will on several 
tokens. A table of Applesoft statement 
tokens is kept by the BI (APTKNTBL, lines 
569-590). Tokens that are handled normally 
are stored in the usual negative ASCII for- 
mat. Tokens that require special processing 
are replaced by branch offsets (positive 
numbers), the nature of which we shall see 
shortly. 

Here’s how it works. Lines 436-437 store 
the token in PROMPT and convert the token 
to an index into APTKNTBL. Line 438 
fetches the table entry. If it is negative (i.e., 
in the normal format) in line 439, Applesoft 
is reentered. A positive table entry is used 
to modify (line 440) the branch instruction 
in line 441. For example, if the LIST token 
($BC) is encountered, table entry $13 (line 
589) is placed at location $9EFD (line 441). 
The branch now goes to line 456, where the 
LIST token is processed. Some program- 
mers eschew the use of self-modifying code. 
I like it. 

Individual tokens are handled as described 
below: 


PRINT and IF Tokens — <CTRL>D 
following a PRINT statement is the signal 
for the BI to anticipate a command. When 
a PRINT token is found, a zero is stuffed 
into PROMPT (line 446), memory of the 
prior character is wiped out (line 447), 
STATE D is set (lines 448-451), and line 
452 branches to line 482 where the token 
is restored to the Accumulator and Applesoft 
is reentered. The next output will check for 
<CTRL>D via the STATE D handler. I 
don’t know why the IF statement requires 
similar processing. 


LIST and CALL Tokens — When LIST 
and CALL are encountered, PROMPT is 
flagged with the values | and 2, respec- 
tively, and Applesoft is accessed (lines 
456-464). 


LET Token — Lines 468-469 restore the 
token to the Accumulator and jump to the 
code that checks for garbage collection. 


TRACE and NOTRACE Tokens — The 
BI trace flag is set by storing the TRACE 
token ($9B) in DTRACE (line 473) and 
branching (line 474) to lines 480-481, where 
the value $4A is stuffed into the Applesoft 
trace flag. On the surface, this would seem 
to clear TRCFLG (a no-no!), but actually, 
once the Applesoft trace handler rotates a 
set carry into bit 7 of TRCFLG, the familiar 
$A5 will be present. After restoring the 
token to the Accumulator, Applesoft is 
entered (lines 482-483). 

Following the NOTRACE command, 
DTRACE is cleared by receiving the branch 
offset ($28) (line 478). Line 479 converts 
NOTRACE to TRACE so that TRCFLG is 


continued on page 122 


LISTING 1: BI Output Processing 


Note: Don’t enter this code. It already exists in the BI. 


WOOAONDOWNHH 


BORIC RRR ICICI ICCC RCAC RC IC ISIC ICICI AC RCI IC ICI ROI RCRA IC aC ae ae ae 


* 
* 
* 
* 
% 
* 
a 
o* 
* 


OUTPUT PROCESSING 
ProDOS BASIC INTERPRETER version 1.1 « 
{BI 1.8 addresses bracketed] * 


Interpreted by 
Sandy Mossberg 


ROTOR III ICRC ICSC ACR IOG IGG ROCIO RG IC EC HS ICI ICC HO RCAC AS AG HC IO IGIC IC IC RC aC ae 


« Merlin-Pro Assembler 


» General 


CH 
PROMPT 
CSWL 
KSWL 
STREND 
FRETOP 
MEMS 1Z 
CURLIN 
TXTPTR 
ERRNUM 
TRCFLG 
REMSTK 
STACK 
INBUF 
COUT 


Eq 


| | | | 


uates: 


$24 
$33 
$36 
$38 
$6D 
$6F 
$73 
$75 
$B8 
$DE 
$F2 
$F8 
$198 
$200 
$FDED 


« BI Proper Equates: 


SET IOTRU 
ERROR 
REGSAV 
REGRST 
SETSTATE 
FRECMD 
SYNTAX 
DOSOUT 
STATED 
TXBUF 


Ln | | | 


$9ABB 
$9AEE 
$OF62 
$OFEC 
$9F76 
$AB44 
$A677 
$B7F1 
$B893 
$BCBD 


« Applesoft ROM Equates: 


OUTRACE 
GETSTT 
LINPRT 


« BI Global 


PRINTERR 
VECTOUT 
VECTIN 
VDOS 10 
VSYSIO 
PREGX 
PREGY 
DTRACE 
IFILACTV 
OFILACTV 
PFXACTV 
STRINGS 
TBUFPTR 
INPTR 
CHRLAST 
OPENCNT 
GOSYSTEM 
RWCOUNT 


« Special 


input 
ctld 


«» Check 


VIDINCPT 
VSTATES 


Te || | | | | 


Eq 


$D818 
$D81D 
$ED24 


Page Equates [same]: 


$BEOC 
$BE38 
$BE32 
$BE34 
$BE38 
$BE3F 
$BE46 
$BE41 
$BE44 
$BE45 
$BE46 
$BE49 
$BE4A 
$BE4B 
$BE4C 
$BE4D 
$BE79 
$BED9 


uates: 


$84 
$84 


ORG $9A2F 

if Applesoft 

CMP TRACECHR 
BNE >| 

STX PREGX 

TSX 

LDA STACK+3 , X 
CMP #OUTRACE+2 
BNE :3 


;Column position of cursor 
;Prompt character 

;Output hook 

; Input hook 

;Bottom of arrays 

:Bottom of strings 

;HIMEM 
;Current 
:Apsoft text pointer 
;Error code number 
;Apsoft trace flag 
;Stack pointer 
i Stack 

; Input buffer 
;Output char via CSW hook 


;Set true 
Error handler [$9B22] 
;Save entry registers 
:;Restore entry registers [$9FA3] 
Set STATE handlers [$9FAD] 

‘FRE command [$A@7B] 

;Parse command 
;BI output 
‘STATE D output handler 
;Text buffer 


;Output trace char 
;Execute Apsoft statement 
;Print decimal 


;Print error message 
:;True output handler 
; True 
;BI 
‘Current state handlers 
;Save X-reg 

;Save Y-reg 

:BI 
;Input file active (if MI) 
;Output file active (if MI) 
Prefix 
;Counter 
;Temp buffer char count (WRITE) 
; Index to command 
;Last char output 
;Number of open nonEXEC files 
iCall 
‘R/W request.count parameter 


; INPUT token 

;CTL-D (negative ASCII) 
;CR (negative ASCI1) 
‘Space 

;MLI WRITE call 


is tracing: 


; Trace char not being output 
;Save entry X 

;Use stack pointer as offset 
;Check stack for Apsoft 


:Not trace printing 


line number 
(Applesoft) 


(Applesoft) 


1/0 handlers [same] 


[$9F99] 


line [$A6B4] 
intercept [$B84B] 
[$B85D] 
[same] 


of A,X 


input handler 
intercepts 


trace flag 
input active (if MI) 
for free string space 


line 


MLI 


trace printing 


a a mR 
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A 2 


NT 


9A74: 
9A77: 


QA7A: 
9A7C: 


Q9A7E: 
SABE: 
9A82: 
9A84: 
9A87: 
9A89: 
9ABB: 


SA8D: 
SABE: 
9A9B: 
9A93: 
9A95: 
9A98: 
SAIA: 
9A9D: 
9A9F: 
9AA2: 


9AA3 : 
9AA4: 
9AA7: 
SAAQ: 
9AAC: 
QAAE: 
9AB1: 
9AB3: 
SABE: 
9AB8 : 
9AB9: 


3F 
61 


@1 


BE 
BE 


BC 


BE 


9A 


BE 


BE 
BE 
BE 
BE 


BE 
BE 
BE 
BE 


SF 


LDA = STACK+4,.X 
CMP #>OUTRACE+2 
BNE <3 ;Not trace printing 
« Applesoft is tracing: 
LDX #4 
JSR SETSTATE Set deferred mode 
LDA = TRACECHR :;Restore entry A 
LDX PREGX ;Restore entry X 
JMP DOSOUT ;Output the trace char 


« Applesoft not tracing: 


ad CMP CHRLAST :Same as last char output? 
STA CHRLAST :Remember current char 
BNE CHAROUT Output different char 


» -> Check for consecutive CRs: 


CMP 
BNE 


#¢er 
CHAROUT 


;Two consecutive CRs? 
;No, so output char 


» -> Consecutive CRs found: 


LDA CH If not start of tine, 
BNE u2 ; output 2nd CR 
LDA TXBUF sAt start of line. Suppress 
CMP #'?! ; 2nd CR if command 
£4 LDA Her ; not pending 
BCS CHAROUT Output 2nd CR 
RTS i; Ignore CR 


« Trace character being output: Applesoft not tracing: 


3 LDX 
LDA 


PREGX 
TRACECHR 


;Restore entry X 
;Prepare to output trace char 


» Echo Output Character [same]: 
Srenepbils erareae are eee ne wis Se ees 


» Output the character: 


CHAROUT JSR SETIOTRU ;Set true I/O handlers 
JSR COUT ;Output char 
» Check for CR: 
CMP Her 
BNE SAVIOTRU ;CR not output 
« CR found: 
LDA TRCFLG 
CMP #$A5 
BEQ i1 ;Normal value in trace flag 
STA DTRACE :Set/clear for immediate mode 
LDA A#$A5 :;Restore normal value 
STA TRCFLG in trace flag 
pa LDA #or :Restore A 
» Save True [I/O Handlers in BI global page [same] 


SAVIOTRU PHA 


LDA KSWL+1 > Input MS8 
STA VECTIN+1 
LDA KSWL ; Input LSB 
STA VECTIN 
LDA CSWL+1 ;Output MSB 
STA VECTOUT+1 
LDA CSWL ;Output LSB 
STA VECTOUT 
PLA 
« Put Intercepts Into CSW/KSW [same]: 
SH ah atte hemaseph atin che. tobe wad gw a kaa a eit 
SETINCPT PHA 
LDA VDOSIO ;Output LSB 
STA CSWL 
LDA VDOS10+1 Output MSB 
STA CSWL+1 
LDA VDOS 10+2 > Input LSB 
STA KSWL 
LDA VDOS 10+3 : Input MSB 
STA KSWL+1 
PLA 
RTS 


» STATE D Output Handler (Check CTL-D) [$9DD2] 


» Check CTL-D after PRINT token: 


VSTATED JSR REGSAV Save A.X.Y 
CMP #ctid 
BNE cl ;CTL-D not found 


» CTL-D found so prepare to assemble command line: 


In less than 5 minutes, KITCHEN PLANNER 
will help you plan up to 14 days of balanced 
meals the way YOU want them and print the 
Menu and Shopping List. 


* EASY TOUSE * SAVESTIME * 


* SAVES MONEY * 


@ "Saves 5-6 hrs a month and keeps our meals 
varied.” - Family Computing Magazine 
Cover Story, November 1984. 


@ “The concept of this program is great for 
my family ... 1 have only owned the 
program for 3 weeks and our shopping 
expenses have been reduced by about 
$25 a week .. . that’s great!’ 

- Mrs, S.,, Illinois 

@ “This has been without a doubt the most 
useful disk | have purchased for my home 
computer.’ - Mrs.T., Wisconsin 


SATISFACTION GUARANTEED 
Send Check or Money Order to 


SAV-SOFT PRODUCTS $2995 


P.O. Box 24898 
San Jose, CA 95154 
(add $1.50 handling; in CA add 6%%) 
VISA,MC call : (408) 978-1048 
48K Apple ll, I!+, Ile, Ile, 1 disk, printer 
Apple is a trademark of Apple Computer, Inc. 


CIRCLE NUMBER 24 


continued on next page 


INTRODUCING: 
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NOW IT IS POSSIBLE 


to design your own counted cross stitch and other 
needlecraft charts using the latest innovative com- 
puter technology. 


This user friendly program allows you to design 
projects as large as 240 x 400 stitches with up to 
30 symbols and gives you the flexibility to move, 
copy. mirror image, rotate, erase, save and re-use 
previous designs. 


Utilizing the APPLE If series microcomputers, 


“the STITCH GRAPHER” jis compatible 
with most dot matrix printers supporting graphics. 


Disk plus informative 75 page manual -$89.95. 


Dealer inquiries welcome. For additional information 


contact 
COMPUCRAFTS 


RFD 2 Box 216, Lincoln, MA 01773 
(617) 259-0409 
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LISTING 1: BI Output Processing (continued) 
193 
FAMILY ORIGINS genealogy soft- QDAA: 20 F4 9F 194 JSR WRBUFDA1 ~~ ;Write buffered data 
ware lets you display your ancestry through 9DAD: 8D 4B BE 195 STA INPTR ;Set at start of command line 
8 types of reports. Easy to use, menu-driven 9DBZ: 8D 44 BE 196 STA IFILACTV ;Set file input inactive 
programs help you enter, edit, sort and 9DB3: 8D 45 BE 197 STA OFILACTV ;Set file output inactive 
search your family tree. Add any information epee. es ae BE ee ae aa ‘Set prefix input inactive 
You! desite in footnotes. 9DBB: 28 76 9F 200 JSR SETSTATE ;Set STATE 8 
onty 4495 Q9DBE: 4C 6C 9F an JMP — REGRST ;Restore A,X,Y 
283 +» CTL-D not found so return to deferred mode: 
284 
9DC1: A2 94 205 :1 LDX #4 
; ‘ 33 29° 7 F R ; TATE 4 
Wheias ss Tels eats, igs TAMER GE | | CEs Gee se ope JSR REGRST “Restore A,X.Y 
pigeons, the GRAND ARK BREEDER'S 9DC9: 4C Fl B7 208 JMP — DOSOUT ‘Output the char 
ASSISTANT will help you keep pedigree, BOG: veh thse. tap seeeiore 6 RoR teeteee es 
breeding, health, show and other records for 218 « STATE 8 Output Handler (Assemble Command Line) [$9DFB]: 
your breeding program. Use it to select from OUT ast emeteeeeeebs : oc espa s « 
up to 9,999 animals for mating or to prepare 212 +» Save char in command line buffer (INBUF): 
documents for transfer of ownership. 213 
95 9DCC: 20 62 9F 214 VSTATE8 JSR REGSAV ;Save A,X,Y 
ONLY 79 9DCF: AE 4B BE 215 LDX INPTR ;Set index to command line 
9DD2: 9D BB G2 216 STA INBUF , X ;Save char in command line 
9DD5: C9 8D 217 CMP #er 
Both programs require an Apple //¢ or 9DD7: FO BE 218 BEQ V8CREX ;CR found 
80-column Apple //e, use ProDOS © Apple 219 
1983-84, support a hard disk and most 226 » Line not completed: 
printers. 221 
9DD9: EE 4B BE 222 INC INPTR ;Bump index 
Demo disk is available for $5.00 ($3.00 credit 9DDC: DB @5 223 BNE V8NOCREX iGo to exit 
if this disk is returned with your order) 9DDE: AI 19 224 LDA #$18 ;Set for SYNTAX ERROR 
. : : 9DES: 4C EE 9A 225 GOERROR2 JMP ERROR ;Go to error handler 
To order or request information, write 9DE3: AE 3F BE 226 V8NOCREX LDX PREGX 
f ‘i Q9DE6: 68 227 RTS 
Analytical Solutions & Software 228 
2265 Westwood Bivd., Suite 2219, 229 « Line completed (CR found): 
Los Angeles, CA 90064 230 
(805 373-6160 9DE7: E8 231 V8CREX INX 
Checks, COD, Money Orders accepted 9DES: CA 232 DEX 
Add $3 ties P&H P 9DE9: FO OB 233 BEQ Bb ;Empty line found 
9.00 s F 9DEB: 28 BB 9A 234 JSR SET IOTRU ;Set true I/O handlers 
or $9.00 for Overseas Air Mail QDEE: 26 77 AG 235 JSR SYNTAX Process command line 
California residents add sales tax 9DF1: B@ ED 236 BCS GOERROR2 ‘Error 
9DF3: 28 8D 9A 237 JSR SAVIOTRU ;Restore intercepts 
QDF6: A2 84 238 1 LDX #4 ;Processing completed so 
CIRCLE NUMBER 54 9DF8: 26 76 9F 239 JSR SETSTATE ; set STATE 4 
Q9DFB: 4C 6C 9F 248 JMP REGRST ;Restore A,X,Y 
241 «------------------------------ 
CONVERSE WITH 242 +» Write Character to Temporary Buffer [$9E2D]: 
2430 #------------------------------ 
YOUR COMPUTER 244 « Check for desired Applesoft token: 
245 
Q9DFE: 8C 48 BE 246 WRTBFCHR STY PREGY ;Save Y 
SUT A ALIN OoenTATA metal ha || SEB: ak aa ar Loy PROMPT 
i vai ru your 3 = 
Created at MIT in 1966, ELIZA has become the world’s most er ie Be ei Be nh PRINT On LE Cprompt=2) 
celebrated artificial intelligence demonstration program. ELIZAisa - 
non-directive psychotherapist who analyzes each statement as 9EB6: FH BO 2508 BEQ od ;LIST (prompt=1) 
you type it in and then responds with her own comment or 9EG8: 88 251 DEY 
question —and her remarks are often amazingly appropriate! 9EB9: FO G6 252 BEQ eA, ;CALL (prompt=2) 
pesioned eee 8 large ee yearn ycl eis 9E@B: AC 48 BE 253 LDY PREGY ;Restore Y 
een available to pel uter users ex in gr ‘ ‘ 
stripped down versions lacking the sophistication which made the 9EGE: 4C 74 9A eee JMP CHAROUT sEcho char 
original program so fascinating 
Now, our new Apple version possessing the FULL power and range 256 » PRINT, IF, LIST or CALL Applesoft token found: 
of expression of the original is being offered at the introductory 257 
price of only $25. And if you want to find out how she does it (or 258 « -> Store character in temporary buffer: 
teach her to do more) we will include the complete SOURCE 259 
PROGRAM for only $20 additional ; 
Order your copy of ELIZA today and you'll never again wonder how biel AC 4A BE 269 1 LDY TBUFPTR iGet index to buffer 
to respond when you hear someone say, “Okay, let's see what this 14; 29 7F 261 AND #$7F :Convert char to pos ASCII 
computer of yours can actually do!” 9E16: 91 73 262 STA (MEMSIZ) ,Y ;Store char in buffer 
READ WHAT THE EXPERTS SAY ABOUT OUR VERSION OF ELIZA: 9E18: AC 48 BE 263 LDY — PREGY iRestore Y 
“Much more than a mere game...You'll be impressed with 9E1B: EE 4A BE 264 INC TBUFPTR ;Bump buffer index and exit if 
ELIZA, ..A convincing demonstration of Artificial Intelligence.” QE1E: D® 2B 265 BNE RTS3 ; buffer not full (256 bytes) 
—PC MAGAZINE 266 
“Delightful entertainment...An ideal medium for showing off your 267 * -> Write full buffer to disk: 
system.” —MICROCOMPUTING MAGAZINE 268 
“ELIZA is an astounding piece of software... A fascinating program ; F 
to use and study.” — BARON'S MICROCOMPUTER REPORTS Eee? “28 G2 SE 269 MSR REGSAV iSavei A, Xi¥ 
i‘ 9E23: 28 EE 9F 270 JSR WRBUFDAT Write buffer to disk 
ELIZA is a great way to introduce your friends to computers...A 9E26: BO B8 271 BCS GOERROR2 ‘Ee 
very funny party game.” —PETER A. McWILLIAMS : ,Error 
“ELIZA is an exceptional program, one that's fun to use, shows off 9E28: 20 6C 9F 272 JSR REGRST ;Restore A,X,Y 
your machine, and has great historical interest.” 9E2B: 68 273 RTS3 RTS 
—POPULAR COMPUTING MAGAZINE i OR eee SCPE IS TLR oe LD 
“This version of ELIZA is the best we have seen. As a party game, it 275 « STATE 4 H | : 
is unmatched.” —HOME APPLICATIONS FOR THE C-64 276 , Re ee Bene ed 
ELIZA IS AVAILABLE IN THE FOLLOWING FORMATS: 277. » Check if Applesoft is tracing: 
1. Protected Version 278 : 
(Protected Version can be run but not listed or modified) ’ R 
2. Un-protected Applesoft BASIC Source Version SE2Cs CD 61 9F 279 VSTATE4 CMP TRACECHR ‘Site of THEN FLASH patch 
(Source Version can be listed and modified as well as run) 9E2F: DS 18 288 BNE 22 ;Trace char not being output 
Both versions include a six page user manual and will run on 9E31: 8E 3F BE 281 STX PREGX ;Save entry X 
Apple ll, Apple Il+, Apple lle and Apple lic. 9E34: BA 282 TSX 
Source Version also available for Macintosh 9E35: BD 83 81 283 LDA STACK+3,X ;Check stack for Apsoft 
if you have Microsoft BASIC 9E38: C9 12 284 CMP #OUTRACE+2 ; trace printing 
Please add $2.00 shipping and handling to all orders 9E3A: DO 27 285 BNE “1 -Not trace printin 
(California residents please add 612% sales tax) 9E3C: BD 04 91 286 LDA STACK+4 Xx . 8 
ARTIFICIAL INTELLIGENCE RESEARCH GROUP OE3F- C9 D8 287 CMP #SOUTRACE+2 
—————, 921 North La Jolla Avenue, Dept. L A 
/ Los Angeles, CA 90046 9E41: FB 73 288 BEQ  BITRACE1 ;Trace printing active 
(213) 656-7368 (213) 654-2214 


MC, VISA and checks accepted 
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continued on page 124 


9E43: 
9E46: 
9E49; 
QE4C: 


QE4E: 
9E5@: 
9E52: 
9E54: 


9E56: 
9E58: 


QESA: 
9E5C: 
9ESE: 
9E6S: 
9E62: 
9E65: 
9E68: 
SEGA: 


QE6C: 
9E6D: 
9E70: 
9E73: 


9E75: 
9E77: 
9E79: 
9E7B: 


9E7D: 
QE7E: 
9E8S: 
9E82: 
9E84: 


9E86: 
9E89: 
9EBC: 


QE8E: 
QE91: 
9E94: 
9E97: 
9E99: 


9E9C: 
SESF: 


9SEA2: 
QEA3: 
QEAS: 
QEA?: 
9EAA: 
QSEAD: 
QSEAF: 
9EB1: 


9EB2: 
9EB4: 
9EB6: 
9EB8: 


28 
AD 
FQ 


268 
8D 
208 
AQ 
28 


28 
4c 


68 
cg 
Dg 
cD 
8D 
De 
85 
6a 


61 
3F 
45 
1E 


9F 
BE 
BE 


OF 


BE 


9F 


OF 
9A 


BE 


322 
323 


338 


337 
338 


348 
341 


344 
345, 
346 
347 
348 
349 
359 
351 
352 
353 
354 
355 
356 
357 
358 
359 
368 
361 
362 
363 
364 
365 
366 
367 
368 
369 
378 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 


« Applesoft not tracing. Check file output activity: 


il LDA TRACECHR ;Restore entry A 
LDX PREGX ;Restore entry X 
12 BIT  OFILACTV 
BPL (4 ;File output not active 


« File output active: 


» -> Check Applesoft prompt character 


CMP #"}" 

BNE :3 ;] not being output 

CMP PROMPT i; If Apsoft prompt being 
BEQ 16 ; output, check open files 


* -> Check CR: 


23 CMP fer ;If CR not being output, write 
BNE WRTBFCHR ; char to temporary buffer 


« -> CR being output: 


LDA PROMPT ;1f prompt is -1 ($FF), 2nd 
CMP #-1 ; consecutive CR being output 
LDA #er ;Restore A 


BCC WRTBFCHR Write lst CR 
JSR WRBUFDAL ;In case of error flush buffer 


STA OF ILACTV ; & flag file output inactive 
LDA #cr ;Restore A 
BNE 8 :Always output 2nd CR to device 


x File output not active. Check active 
» file input and/or prefix input: 


74 PHA 
LDA IFILACTV ;Test active file input 
ORA PFXACTV ;Test active prefix input 
BPL ae) ;File/prefix input inactive 


« File input and/or prefix input active: 


LDA PROMPT 

ORA #4 

CMP #input ; Tf INPUT token found, 
BEQ a] ; suppress echo of prompt 


« Check Applesoft prompt character: 


"5 PLA 
CMP #")" ;If char is not ], 
BNE 18 ; echo char 
CMP PROMPT ;If char is ] but ] is not 
BNE :8 ; prompt, echo char 


« Applesoft immediate mode prompt being output: 


* -> Check open file(s): 


76 JSR REGSAV :Save A,X,Y 
LDA OPENCNT 
BEQ ae ;None open so echo char 


« -> File(s) open: 


JSR WRBUFDAL ;Write data to buffer 

STA OFILACTV ‘Set output file inactive 
JSR SETIOTRU ;Set true I/0 handlers 
LDA #$15 

JSR PRINTERR ;Print FILE(S) STILL OPEN 


« Echo output character: 


a JSR REGRST Restore A,X,Y 
78 JMP CHAROUT ;Echo output char 


« No echo exit: 


19 PLA 
CMP #cer 
BNE 118 ;CR not found 
CMP CHRLAST Prior char CR? 
:18 STA CHRLAST ;Remember present char 
BNE RTS4 
STA PROMPT ;Flag consecutive CRs 
RTS4 RTS 


« Bump Apptesoft text pointer: 


BITRACE INC TXTPTR+1 
BNE BITRACE2 

BITRACE1 INC TXTPTR 
BEQ BITRACE 


BLANKENSHIP BASIC 
GIVES YOU 


FOR THE APPLE H+, Me anna Me 
DOS 3.3 VERSION 
OR PRODOS VER. $25 
BOTH FOR $39.95 


ADD $2.00 POSTAGE AND HANDLING 
($5.00 outside U.S.) 


10 DAY MONEY BACK GUARANTEE 


EVERYTHING 
YOU HAVE EVER WANTED 
IN ONE COMPATIBLE PACKAGE 


Real interpreter, not a pre-processor 
WHILE-ENDWHILE and RE&PRAT-UNTIL loops 
True IF-THEN-BLSE-ENDIF (using WHEN) 
PRINT.USING, FILE, MERGE, RANDOMIZE 
PRINT and TAB commands work in HIRES 
80 columns supported on J/eand Ile 
Full editor with AUTO-NUM and RENUM 
Fast SORT, SEARCH and INSTR$ commands 
BOX, BOXFILL, DRAW.USING and SOUND 
Listings are indented eutomatically 
11. DISK command replaces DOS’s CHR$(4) 
12. DEFINE and PERFORM namged procedures 
13. 99% upward compatible with Applesoft 
14. All commande entered normally, no &'s 
15. 100's of satisfied users world wide 
16. FREE newsletter available to owners 
Makes your Apple into a NEW machine!! 


= 
COBAMRMSONY 


MAIL CHECK TO: J. L. BLANKENSHIP 
P.O. BOX 47934 ATLANTA, GA 30362 
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Holiday Special 
$49.95 (U.S.) 
Offer good until 1/31/86 


Do you program in Applesoft? 

RAM SLICER is loaded with exciting features activated by 
commands using the ampersand symbol. RAM SLICER will 
allow you to improve your programs using features such as: 
truly independent subroutines, improved input and output 
capabilities, super fast disk access, and data storage in auxilliary 
memory. (Using IMEG Applied Engineering RamWorks card 
you will have an additional 720K of memory for data!) 

MAIL COUPON OR CALL TODAY 


KWH Technology, Inc. (313) 474-6864 
PO Box 95 © Farmington, MI 48024 


Please send me: 


(.) RAM SLICER information (Send information to me 
immediately. | can’t wait for the reader service card!) 


(.) RAM SLICER software and documentation for $49.95 
{U.S.) (Offer good until 1/31/86) Outside of U.S. and 
Canada add $5.00. if I'm not satisfied, | may return 
everything within 14 days for refund of purchase price 


(.) Check enclosed ( )}) COD Add $3.00 for COD 


Signature 


Name 


Address 


City/ST: Zip 
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not cleared. 


RESUME Token — Lines 487-490 clear 
the Applesoft ONERR code. restore the 
token to the Accumulator and branch to an 
Applesoft entry vector. 


INVERSE and NORMAL Tokens — 
Lines 513-514 stuff the pound sign into the 
trace character image. and lines 515-516 
restore the token to the Accumulator and 
reenter Applesoft BASIC. 


FLASH Token — When the FLASH token 
is found, the value $E3 is stored in the image 
of the trace character (lines 508-509). The 
rationale can be found in OUTDO at line 
118 of Listing 2. When FLASH mode is 
active, ORMASK holds the value $40 (lines 
180-182 of Listing 2), and the pound sign 
is ORed with $40 and becomes $E3. When- 
ever OUTDO is called to print the trace 
character with FLASH in effect. the trace 
character is represented by $E3 rather than 
$A3. For the tests at lines 88 and 279 to 
remain valid under this circumstance. the 
trace character image must now contain 
$E3. Please remember this theory for future 
reference. 


STATE D 

The sole purpose of STATE D is to search 
for <CTRL> D following a PRINT token. 
If the DOS alert character is not found (line 
190), STATE 4 is reset (lines 205-206) and 
VSTATE4 is accessed (line 208). If 
<CTRL> D is located, a BI command is 
pending, in which case the temporary buffer 
is cleared, the command line index is 
zeroed. file/prefix I/O flags are cleared, and 
STATE 8 is activated (lines 194-200). 


STATE 8 

When a BI command has been identified, 
VSTATES8 assembles the command in the 
input buffer where it can be validated and 
processed. INPTR (line 215) holds the 
buffer position, and line 216 stores the com- 
mand character in the input buffer. If the end 
of the command (i.e., a CR) is not found, 
INPTR is incremented (line 222) and the 
routine is exited (lines 226-227). If the com- 
mand line contains more than 256 charac- 
ters, lines 224-225 produce a SYNTAX 
ERROR message. On completion of the 
command (line 218), flow passes to lines 
231-232, where a noncommand (i.e.. 
<CTRL> D followed by no command) is 
ignored (line 233) or a pending command 
is processed (line 235). Following command 
execution, a set carry indicates an error con- 
dition (line 236). On Carry Clear, STATE 
4 is reinstated (lines 238-239). 


FILE OUTPUT 

When a file is being written, some out- 
put is directed to the file itself (e.g.. after 
PRINT statements) and some output goes to 


the screen or printer. If a PRINT, CALL 
or LIST token is found (these were flagged 
by BITRACE when special tokens were pro- 
cessed) (lines 247-252), output is held in the 
temporary (general purpose) buffer: other- 
wise. the character is echoed (line 254). 
Buffered characters are stored in positive 
ASCII format (lines 260-262). When the 
buffer contains 256 bytes. it is written to disk 
(lines 269-273). 

WRBUFDAT does the actual writing. If 
entered at line 529, 256 bytes are copied 
from the temporary buffer to disk. Entry at 
line 535 writes the number of bytes in the 
A and Y Registers to disk and handles 
errors. Entry at line 545 flushes the buffer 
(TBUFPTR holds the number of stored 
bytes) to disk. Lines 548-551 set the WRITE 
parameter list for the correct number of 
bytes to be written and call GOSYSTEM, 
the BI global page subroutine that handles 
calls to the machine language interface. 
After resetting TBUFPTR to zero (lines 
553-554), the subroutine exits with a zero 
in the Accumulator. As usual, a set carry 
flags an error. 


TRACING AN ELUSIVE BUG 

Since the inception of ProDOS. I and 
others have noted a strange bug in the trace 
mechanism. An Applesoft program might 
be functioning well when, all of a sudden, 
without any apparent rhyme or reason, trac- 
ing would be activated for a brief period of 
time and then would stop as inexplicably as 
it started. This occurred without a single 
TRACE command found in the resident pro- 
gram. The addition of NOTRACE would 
not abolish the aberration. Strange! 

As I embarked upon writing this install- 
ment of D/L, I resolved that I would root 
out the bug. First, however. the problem had 
to be defined. Fortuitously, in the April 1985 
issue of Nibble (Vol. 6/No. 4), a letter to 
the editor from J.R. Wakefield presented a 
short program called FLASHER that illus- 
trated this very bug. It looked like this: 
18 GET A$: PRINT 
20 IF A$ = "A" THEN FLASH: PRINT " 

ERROR” :GOTO 4 


38 FLASH: PRINT "OK" 
48 NORMAL: GOTO 19 


The four-liner contains no TRACE com- 
mand. yet tracing occurs whenever the 
upper-case A is entered. It is apparent that 
should the IF condition (line 20) be satis- 
fied. the combination of THEN and FLASH 
turns on tracing. When the NORMAL state- 
ment is executed, tracing stops. Experiment- 
ing confirms the culpability of this nefarious 
coalition of keywords. The suggestion by the 
editor to use POKE 50,127 instead of 
FLASH was valid. but I was not about to 
walk away with my tail between my legs. 
No siree! 

In debugging, I use several techniques. If 
looking at code does not solve my problem, 
I use the **bell’* technique to test various 


segments (this is explained below). When 
all else fails, I use BUGBYTER, the debug- 
ger on the ProDOS Assembler Tools disk. 
I used this superb debugger long before 
Apple Computer purchased it from Com- 
puter Advanced Ideas. 

After racking my brain for a good hour, 
T could find no apparent flaw in the STATE 
handlers or BI trace handler. I theorized that 
the problem must reside in the interaction 
between Applesoft and ProDOS BASIC. 

My next step was to see how the FLASH 
token was processed by the BI. The bell 
method is a simple debugging trick: you 
place a call to the bell routine in a segment 
of code. The bell will sound if program flow 
passes through the target area. J entered the 
System Monitor (CALL —151) and made 
the following patches (BI 1.0 addresses are 
in brackets): 


9F54:4C 4C BB JMP $BB4C [9F83:4C BA 6B] 


BB4C:20 3A FF JSR BELL [BBBA:20 3A FF} 
AQ £3 LDA #$€3 [ AQ E3 J 
4C 5A OF JMP $9F5A [ 4C 89 9F) 


$BB4C-$BC79 is an unused space within 
BI version |.1 ($BBBA-$BC77 is free in 
version 1.0). This code merely provides a 
bell sound whenever the BI processes the 
FLASH token (lines 508-509 and 514-515 
of Listing 1). 

I reentered BASIC and again ran 
FLASHER. To my delight, the bell rang 
(i.e.. FLASH was processed by the BI) 
when any key but A was pressed, but no 
sound was heard when the IF-THEN state- 
ment was evaluated as true (1.c., A was 
pressed). This proved that the FLASH in 
line 30 was handled normally. but the same 
token in line 20 was ignored by the BI. Very 
interesting. 

Apparently. a true IF-THEN construction 
caused a token following THEN to bypass 
the BI. I tested this hypothesis using the fol- 
lowing program: 


108 D$ = CHR$(4) 

118 ONERR GOTO 59@ 

128 PRINT D$”"DELETE TESTFILE" 
138 PRINT PEEK(222):END 

588 PRINT D$"CREATE TESTFILE" 
51@ IF NOT B THEN RESUME 


For the program to function properly, 
TESTFILE cannot be a file on your disk. 
When line 120 is executed. TESTFILE is 
not found and ONERR flips control to line 
500. where TESTFILE is created. The RE- 
SUME statement passes flow back to the 
point at which the error occurred (i.e. line 
120). When Applesoft processes RESUME, 
the error code location ($DE = 222) is not 
cleared. When the BI preprocesses RE- 
SUME, however, this location is zeroed 
(lines 487-488 of Listing 1). Thus, if the 
BI gets hold of RESUME. line 130 prints 
a zero before ending. If the BI fails to pro- 
cess RESUME, error number 6 (FILE NOT 
FOUND) is output. It all hinges on whether 
a true IF-THEN complex will skip RE- 
SUME. as it apparently did with FLASH in 
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«We will 


We'll support, service and warranty everything we sell and 
stand behind it 100%. We won't charge you for shipping 
or handling, nor will we penalize you for using a credit card. 


eu MODEMS EEE 


D.C. Hayes 
Smart 300 lic w/sc & cable 179.95 
Micro Modem Ile w/sc 149.95 
Smart 1200 384.95 
Smart Modem 2400 594.95 
Transit w/128k 289.95 


Prometheus 
Pro 1200 
Pro 1200 A wisc 
Pro 300C 
Zoom 


Zoom Micro lle + wi/sc 


309.95 
299.95 
CALL 


159.95 


aaa PERIPHERALS & = 
as ACCESSORIES =m 


Apple 
I E's & Il C's & Macs 


AST 
Multi 1/0 
Checkmate Tech 
ll E 64K +80 
Il E 256K +80 
ll E 512K +80 
IC w/256K 
IC w/512K 
Curtis 


CALL 
164.95 


Multiram 
Multiram 
Multiram 
Multiram 
Multiram 


129.95 
169.95 
219.95 
239.95 
289.95 


Diamond 
Emerald 
Ruby 
Static Mat 

Disks Verbatim 
Bonus SS/DD (10) 
Bonus DS/DD (10) 

Disks Maxell 

MD 1 SS/DD (10) 


34.95 
39.95 
59.95 
27.95 


12.95 
16.95 


19.95 


MD 2 DS/DD (10) 
Kensington 
Dust Image. 10" 
Printer Stand 
System Saver 
Koala Technologies 
Koala Pad 
Joysticks 
Kraft 
Kraft Quickstick 
Hayes Mach III's 
Ribbons 
Black & Multi Colors 
Titan 
Accellorator 
64k Ram 
128k Ram 
Neptune 192k + 80 


=== GRAPHIC INTERFACES == 
ges &§ BUFFERS 


Orange Micro 
Grappler + 
Grappler + w/64k 
Grappler + RS-232C 
Grappler C 
Hot Link lic 


84.95 
174.95 
84.95 
84.95 
49.95 


Textprint 


Thirdware 
Fingerprint + 
Fingerprint + IIC 


Print It 129.95 


94.95 
94.95 


== PRINTERS DOT MATRIX = 


Apple 
Imagewriter || 10° 
Imagewriter 15 

Citizen 
MSP 10 160 
MSP 15 160 
MSP 20 200 
MSP 25 200 

Epson America 


474.95 
509.95 


274.95 
374.95 
344.95 
494.95 


239.95 
274.95 
369.95 
499.95 


LQ 1500 


ML 192 
ML 192 Image. 
ML 193 
ML 84 


929.95 


359.95 
389.95 
489.95 
654.95 


239.95 
359.95 
499.95 


529.95 


Okidata 


Star Micronics 


== BUSINESS SOFTWARE == 


List Handler 
Word Handler 
Spell Handler 
Apple 


54.95 
54.95 
39.95 
Appleworks 199.95 
Arrays 
Home Accountant 

BPI Software 


47.95 


AIR 
G/L 
P/R 
AIP 
VC 


229.95 
229.95 
229.95 
229.95 
229.95 
Broderbund 
Bank Street Writer 
Bank Street Spelier 
Bank Street Filer 
CBS 


44.95 
44.95 
44.95 


Stockpac |I 

Compuserve 
Subscription Kit 

Dow Jones 
Market Analyzer + 
Investors Workshop + lic 
Market Microscope 
Market Mng 

Human Edge 
Mind Prober 


94.95 
27.95 
209.95 
89.95 
209.95 
149.95 


344.95 


Gollan Co , In 
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Kensington 

Format I! 
Living Videotext 

Think Tank 

Megahaus 
MegaWorks owe 
Report Works 

Microsoft 


94.95 
84.95 


79.95 
CALL 


59.95 
64.95 


74.95 
44.95 


Multiplan 
Monogram 
Dollars & Cents 
Dollars & Cents lic 
Forcast 
Penguin 
Home Data Mng. 
Home Connection 
Quark 


29.95 
34.95 


89.95 
119.95 


Catalyst 
Word Juggler 
loger Wagner 
Mouse Write 74.95 

Sensible Software 
Sensible Speller IV 
Graphics Dept 

Sierra On Line 
Homeword 
Homeword Speller 
Home Word Filer 


74.95 
79.95 


44.95 
34.95 
44.95 


Software Publishing 
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PFS: 1st Success 95 
PFS:Write 74.95 
PFS: File 74.95 
PFS:Graph 74,95 
PFS:Report 74.95 
PFS:Plan 74.95 


eee UTILITIES & 


match 


Sorcim/US 

Super II/A 119.95 

ssi 

Word Perfect 99.95 
Stoneware 

D.B. Master V 4.0 + 179.95 

United Software 
ASCii Express 84.95 


= LANGUAGES SOFTWARE = 


Baudville 
Actors & Actions T1 20.95 
Business T1 34.95 
Blazing Saddles 34.95 
Heroes & Villans T1 20.95 
Pixit 34.95 
Shape Lib. 1,2,3 (ea) 13.95 
Take 1 37.95 
Beagle Brothers 
Alpha Plot 27.95 
Apple Mechanic 20.95 
Bag 20.95 
Basic 25.95 
Graphics 37.95 
D-Code 27.95 
Diskquick 20.95 
DOS Boss 17.95 
Double-Take 25.95 
Fat Cat 25.95 
Flex Text 20.95 
Frame-Up 20.95 
GPLE 32.95 
1.0. Silver 20.95 
Pro-Byter 25.95 
Pronto DOS 20.95 
Silicon Salad 17.95 
Tip Disk #1 13.95 
Triple Dump 27.95 
Typefaces 13.95 
Utility City 17.95 


Borland International 
Turbo Pascal 3.0 


Turbo Tool 37.95 


Turbo Tutorial 25.95 
Broderbund 
Dazzle Draw 37.95 
Print Shop 34.95 
Print Shop GL 1,2 (ea) 18.95 
Print Shop Refill 13.95 
Central Point 
Copy Il + 24.95 
Funk 
Sideways 38.95 
Sideways Pro DOS CALL 
Microsoft 
Basic Compiler 234.95 
COBOL-80 399.95 
Fortran-80 119.95 
Mindscape 
Mister Pixel’s 
Cartoon Kit 20.95 
Paint Set 20.95 
Color Me (Main) 20.95 
Rainbow Brite 7.95 
Shirt Tales 7.95 
Hugga Bunch 7.95 
Tink Tonk 7.95 
Penguin Software 
Cat Graphics 24.95 
Graphics Magician 37.95 
Magic Paintbrush 24.95 
Pinpoint 
Pinpoint 45.95 
Terrapin 
LOGO 64.95 


wa EDUCATIONAL & = 
== PERSONAL SOFTWARE == 


Barrons 
Computer SAT 54.95 
GMAT 54.95 
cBs 
Goren's Bridge 49.95 
Mastering SAT 64.95 
Websters:Word Game 19.95 
Success Series 24.95 


Davidson Associates 


Classmate 32.95 
Math Blaster 32.95 
Speed Reader |! 44.95 
Data Disks A,B,C,D (ea) 13.95 
Spell It 32.95 
Word Attack 32.95 
Data Grade(s) (ea) 13.95 
Data Roots & Pret 13.95 
Data SAT 13.95 
Hayden 
SAT Math 27.95 


Density (10) 
* Head Cleaning Kit 
* Library Case 
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* Single Sided/Double 


SAVE $43.90 


SAT Verbal 
Learning Company 


27.95 


Addition Magician 24.95 
Gertrudes Puzzle 29.95 
Gertrudes Secrets 29.95 
Juggle's Rainbow 20.95 
Magic Spells 24.95 
Moptown Hotel 27.95 
Moptown Parade 27.95 
Reader Rabbit 27.95 
Robot Odyssey 34.95 
Rocky's Boot 34 95 
Word Spinner 24.95 
Meca 
Managing Your $ 109.95 
Mindscape 
Perfect Score 49.95 
Keyboard Cadet 27.95 
Lusher Profile 27.95 
Bank St. Music 34.95 


VERBATIM 
Data Lifes 


Retail BCP 
$39.95 $21.95 
19.95 FREE 
5.95 FREE 


+ 2.50 Shipping 


Mindscape 
Bank St. Story B 
Quality 
Bag of Tricks 


Beneath Apple DOS 
Beneath Apple Pro DOS 
Random House 
Charlie Brown's ABC's 
Snoopy Rescue 
Scarborough 

Boston Diet 
Build a Book 
Build Refills 1,2 (ea) 
Mastertype 

New Improved 

Figure's & Formulas 

Filer 

Writing Wizard 
Run for the $ 
Songwriter 
Personal Net W 

Screenplay 
Ken Houston Black Jk 
Trivia Arcade 
Simon & Schuster 

Typing Tutor III 


Activision 
Master Lands 
Countdown to Shut 
Road Race 
Alcazar 
Ghostbusters 
H.E.R.O 
Pitfall 
Space Shuttle 
Mindshadow 
Rock N Bolt 

Blue Chip 
Barron 
Millionaire 
Squire 
Tycoon 

Broderbund 
Championship Lode R 
Chopiitter 
Captain Goodnight 

CBS 


Murder by Doz 
Datasoft 
Bruce Lee 
Conan 
Dig Dug 
PacMan 
Zaxxon lic 
Epyx 
Rogue 
Summer Games 
Pitstop 
Baseball 
Summer Games II 
Winter Games 
Football 
Tempie Apshair 
Hayden 
Holy Grail 
Sargon III 
Infocom 
Cutthroats 
Deadiine 
Enchanter 
Hitchhiker's G 
Sorcerer 
Suspect 
Witness 
Zork 1 
Zork 2,3 (ea) 
Micro Lge. Sports 
Baseball 
Microprose 
F-15 Strike 
NATO Commander 
Solo Flight 
Crusade in Europe 
Kennedy Approach 
Gunship 
Acro Jet 


FREE SHIPPING 
CONTINENTAL USA/UPS ONLY 
APO/FPO WELCOME 


ORDERS ONLY 800-845-3003 


27.95 


28.95 
15.95 
15.95 


27.95 
27.95 


49.95 
27.95 
13.95 


27.95 
19.95 
27.95 
49.95 
27.95 
27,95 
49.95 


49.95 
27.95 


34.95 


27.95 
27.95 
27.95 
27.95 
27.95 
27.95 
27.95 
27.95 
27.95 
27.95 


29.95 
29.95 
34.95 
29.95 


24.95 
24.95 
24.95 


24.95 


27.95 
27.95 
20.95 
20.95 
20.95 


20.95 
27.95 
27.95 
24.95 
27.95 
CALL 
CALL 
20.95 


34.95 
34.95 


27.95 
34.95 
27.95 
27.95 
29.95 
29.95 
27.95 
27.95 
29.95 


27.95 


24.95 
24.95 
24.95 
27.95 
CALL 
CALL 
CALL 


Softsync 
Kid Pro Quo 
Model Diet 
Personal Acct 

Spinnaker 
Story Machine 
Alphabet Zoo 
Delta Drawing 
Kids on Keys 
Kindercomp 
Snooper Trooper 1,2 (ea) 
In Search of 

Springboard 
The Newsroom 
Virtual Combinatics 

Micro Cookbook 
Added Menue’s (ea) 


Xerox/Weekly Reader 


Sticky Bear 
ABC 
Basket Bounce 
Math 
Numbers 
Opposites 
Reading 
Shapes 


aes GAME SOFTWARE == 


Mindscape 

Halley Project 
Stephen King Mist 
James Bond View K 
Forbidden Castle 
Voodoo Island 
Racter 
Tink's Adventure 
Tonk in Buddy Bots 
Tuk Goes Town 
Tinka's Mazes 
Tinka’s Sub. Fair 

Origin 
Caverns Callisto 
Ultima Ill Exodus 
Autodvel 
Ogre 

Penguin 
Pensate 
Quest 
Swords Kadash 
Transylvania 
Crimson Crown (New) 

Pryority 
Forbidden Quest 

Sierra On Line 

Frogger 
King's Quest 

Sir Tech 
Wizardry 1 
Wizardry 2 
Wizardry 3 
Wizardry 4 

Spectrum 
Gato 

Spinnaker/Telarium 

Amazon 
Dragon World 
Fahrenheit 451 
Rendezvous w/Rama 
Shawdow Keep 
Homework Writing 
Homework Word 
Homework Math 


Strategic Simulations 


Baltic 85 
Battle Normandy 
Carrier Force 
Computer Ambush 
Computer Quarterback 
Computer Baseball 
Germany 85 
Kampfgruppe 
Objective Kursk 
Questron 
Reforger 88 
War with Russia 
Sublogic 
Flight Simulator II 


Mea William F. Gollan 
Ee President. BCP 


, 


== PERSONAL SOFTWARE == 


27.95 
25.95 
34.95 


27.95 
20.95 
27.95 
19.95 
19.95 
24.95 
24.95 


34.95 


27.95 
9.95 


27.95 
27.95 
27.95 
27.95 
27.95 
27.95 
27.95 


27.95 
27.95 
27.95 
27.95 
27.95 
29.95 
20.95 
20.95 
20.95 
20.95 
20.95 


24.95 
37.95 
CALL 
CALL 


19.95 
24.95 
24.95 
24.95 
24.95 


27.95 


24.95 
34.95 


34.95 
24.95 
27.95 
29.95 


27.95 


27.95 
27.95 
27.95 
27.95 
27.95 
27.95 
27.95 
21.95 


24.95 
27.95 
37.95 
37.95 
27.95 
27.95 
37.95 
37.95 
27.95 
34.95 
37.95 
49.95 


34.95 


QUESTIONS 
603-924-9406 


the Wakefield program. By the way, the 
Boolean *‘NOT B”* (line $10) evaluates as 
true because all undefined variables are 
assigned a zero value, which goes to show 
that things do sometimes go your way. 
Indeed, on running the program, RESUME 
is never handled by the BI, as evidenced by 
the ‘'6’’ on the screen. Removing the IF- 
THEN statement in line 510 (i.e., simply 
having RESUME) produces the expected 
zero in location 222. 

The success of the above test sent me 
poring through my disassembly of Applesoft 
ROM for the mechanism of the IF-THEN 
function. I searched the Applesoft command 
table for THEN but learned that no handler 
exists for this token. The IF statement han- 
dler is disassembled in lines 131-150 of List- 
ing 2. After evaluating the formula after IF 
(line 131), the character following the for- 
mula is obtained (line 132). If GOTO is 
found, flow drops to line 137. If THEN is 
found by the subroutine SYNCHR (lines 
135-136), flow resumes at line 137. If 
neither GOTO nor THEN is encountered, 
SYNCHR produces the appropriate error 
message. 

At lines 137-138, if the floating-point 
accumulator (FAC) is zero, the IF-THEN 
statement was false and the remainder of the 
line is bypassed (lines 142-143). When IF- 
THEN is true, flow passes to line 147, 
which fetches the character following THEN 
or GOTO. CHRGOT exits with a clear carry 
if a decimal digit is found or a set carry if 
a nondigit is picked. On finding a numeral, 
GOTO is inferred and control passes to the 
GOTO handler (line 149). Upon locating a 
nondigit, flow is routed to TYPSTT (line 
92), the portion of NEWSTT that accesses 
the statement handler. 

As a result of this process, any token 
immediately following THEN bypasses 
EXECUTE/GETSTT (lines 75-78), is not 
trapped by OUTRACE, and does not reach 
the BI. Quite fascinating, don’t you think? 

We have not yet explained why THEN- 
FLASH turns on trace mode, but we're 
sneaking up on it. If FLASH (following 
THEN) fails to be processed by the BI, the 
value $E3 is not placed into TRACECHR, 
but Applesoft still conditions ORMASK and 
INVFLG (lines 174-182). When deferred 
mode output next reaches OUTRACE, 
OUTDO uses ORMASK to convert the 
pound sign (value $A3) to value $E3. Since 
TRACECHR has not been changed from 
$A3 to $E3 by the BI trace processor, when 
VSTATE4 is reached, the branch in line 280 
of Listing 1 is taken. The trace character 
(value $E3 ANDed by COUT] with value 
$7F equal to a flashing pound sign) is even- 
tually output (branches are taken at lines 
295, 328 and 341) by CHAROUT (line 
364). Applesoft regains control at line 82 
of Listing 2, where the line number is 
printed. Not until FLASH is disabled by 
NORMAL or INVERSE or until FLASH is 
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LISTING 1: BI Output Processing (continued) 


9EBA: 
9EBC: 


QEBE: 
9ECO: 


9EC1: 
9EC4: 


9EC6: 
9EC8: 
9ECA: 
9ECC: 


9ECE: 
9ED1: 
9ED3: 
9EDS: 
9ED7: 
9QEDO: 
SEDB: 
9EDE: 
9EE1: 
9EE3: 
9EE5: 


QEE8: 
QEEA: 


QEEC: 
QEEE: 


FF 
33 


F8 


33 


99 
F5 
FD 
125%) 


33 
4c 
@3 
38 
84 
39 
1D 


1 
33 
17 


G2 
33 
1l 


CE 


41 


BE 


BE 


OF 
AS 


D8 


B7 


9E 


9E 


BE 


BE 


386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
429 
401 
402 
403 
404 
405 
406 
407 
488 
409 
419 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
439 
431 
432 
433 
434 
435 
436 
437 
438 
439 
449 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
4768 
471 
472 
473 
474 
475 
476 
477 


« Set prompt for possible error detection in VSTATE4: 


#-1 
PROMPT 


: Tf PROMPT remains -1 then 
consecutive nontokens found 


BITRACE2 LDX 
STX 


« Restore Applesoft NEWSTT stack pointer 


LDX REMSTK 
TXS 
« Check 1f BI trace active: 
BIT DTRACE 
BMI DOTRACE ‘BI trace active 


x Get Applesoft program character 


NXTASCHR LDY HO 
LDA (TXTPTR) .Y ;Get char 
BMI CHKTKN : Token found 
BEQ GOGETST2 End of line found 


» Check possible garbage collection: 


TRCFRE DEC STRINGS ;Decrement counter 
BNE GOGETST1 .If counter zero skip garbage 
LDA FRETOP+1 Calculate 
SBC STREND+1 , free space 
CMP #3 :1f 3 pages or more. 
BCS 1 : no problem, 
JSR = WRBUFDA1 else write data to buffer 
JSR FRECMD and collect garbage 
LDA FRETOP+1 and recalculate 
SBC STREND+1 : free space 
yids STA STRINGS :Save new count 


» Get Applesoft program character again: 


LOY #D 
LDA (TXTPTR) .Y ;Get char 


» Execute Applesoft statement 


GOGETST1 CMP Bos 


: Condition status flags 
GOGETST2 JMP GETSTT+3 


Execute statement (token) 
« Process token. 


-> Check token using (gasp!) self-modifying code: 


CHKTKN STA PROMPT :Store token in PROMPT and 
TAY ; use as lookup index to 
LDA APTKNTBL-$88.Y ; Applesoft Token Table 
BMI GOGETST2 :Ordinary token so execute 
STA :l41 Special token. Set handler 
ol BNE BPRINT :Branch set by prior line 
» -> PRINT or IF token: 
BIF 
BPRINT STA PROMPT ; PROMPT=8 
STA CHRLAST :Wipe out {fast char 
LDA STATED :Set STATE D to check for 
STA vSYSI1O ; CTL-D after PRINT token 
LDA STATED+1 
STA VSYSI0+1 
BNE GOGETST3 iAlways 
-> LIST token: 
BLIST LDA #1 
STA PROMPT ; PROMPT=1 
BNE GOGETST3 :Always 
» -> CALL token: 
BCALL LDA #2 
STA PROMPT ; PROMPT=2 
BNE GOGETST3 ‘Always 


» -> LET token (forces check for garbage co! lection) 


BLET TYA 


JMP 


;Put token in A 
TRCFRE 


« -> TRACE token: 


BTRACE STY 


BNE 


OTRACE 
SETASTRC 


:Set BI trace flag 
(Always 


*« -> NOTRACE token 


BNOTRACE STA DTRACE iClear BI trace flag 
DEY ;Change NOTRACE to TRACE 
SETASTRC LDA AS4A Set Apsoft trace flag (TRACE 
STA TRCFLG handler will ROR to $A5) 


continued on page 126 


Gun For Hire 


Black Sun’s software rental library will blow you away! 


Announcing an end to hit 
or miss software decisions 


Selecting the right software can be pretty difficult. 
To say the least. Newer, better software is re- 
leased every day. And state-of-the-art’ is redefined 
every week or so. The solution? Renting. Black 
Sun's rental option makes computing on your Ap- 
ple more enjoyable than ever. Without shooting 
your budget full of holes. 


Over 2,000 rental titles for the 
Apple and Macintosh computers 


Black Sun handles only one line of software. 
Apple. With years of experience you can rely on. 
A capable support staff maintains an up-to-date 
product library of all the latest releases and a well 
organized product catalog makes finding the right 
software a snap. Featured categories include 
adventure, business, communications, education, 
game, graphics, home/hobby/utility, strategy, 
word processing, hardware, and books. Plus hun- 
dreds of rare and % price items are made available 
through their unique consignment option. 

A Black Sun exclusive. 


Don’t take a shot in the 
dark...rent it first! 


You can rent software for 3 weeks for just 15 to 
20% of the list price, or less. All rental fees are 
applied to the competitive discount prices...if you 
decide to buy. You call the shots. Evaluate a 
business package, solve an adventure, try 
something new, or whatever! The choice is yours. 
As it should be. 


Give it a shot! 


Take advantage of this introductory offer and save 
$5.00 off the regular one-time membership fee of 
$25.00. There are no annual dues, hidden costs, or 
complicated deposit schemes. Send check or 
VISA/MasterCard info for $20.00 along with your 
name, address, phone #, and system info. Your 
product catalog and membership info will be sent 
immediately. 


If you are not 100% satisfied with the 

service and/or selections, simply inform 

them within 30 days and your $20.00 

will be promptly refunded! 

Name: 

Address: 

City: ____—CSCCSttatte Zip: 
Circle System: II+ //e //c Other Mac 

= aa 
Or charge ittoO Visa — visa O MC Ss, 


I 5 a, BP 


Signature _____——CSCC#é@D att: 


For more information call or write: 


N 7 Black Sun 
= @ — ?.0. Box 406 
\ Etmmmaud, PA 18049 
(215) 967-3300 


Apple is a registered trademark of Apple Computer, Inc. 
Macintosh is a trademark licensed to Apple Computer, Inc. 


CIRCLE NUMBER 58 


a 


processed by the BI will the trace anomaly LISTING 1: BI Output Processing (continued) 
be corrected. OF2E: 98 482 GOGETST3 TYA ;Put token in A 
QF2F: 4C 26 D8 483 JMP GETSTT+3 :;Execute Apsoft statement 
RIGHTING THE WRONGS ee aRtuie tan 
. . oe * > oKen: 
Having identified the trace bug, I set out 486 
to exterminate it. I turned off my //e, donned a AQ 90 487 BRESUME nn Be cus ns poe r 
* aL: : 7, BS DE 488 ;Clear Apsoft error code 
my thinking cap, and stretched out in My | 9536: 98 489 TYA Puk Boke tack 
usual horizontal working position with a pad | 9F37: D® B3 499 BNE GOGETST1 Always 
: : Pe : 491 
and pencil. During the composition of this Ee i eo Be eke treed 
article, I had a gut feeling that the trace char- 493 
acter. image (line 521 of Listing 1) was | 9F39: 20 99 9A 494 DOTRACE JSR  SETIOTRU Set true 1/0 handlers 
as 9F3C: AQ A3 495 LDA #"#" 
unnecessary. After all, if we prove that | 9F3e: 29 ED FD 496 JSR COUT -Print trace char 
STATE 4 (or STATE 0) flow comes from | 9F41: A6 75 497 ane erellges : 
F 9F43: A5 76 498 L + 
OUTRACE, the character in the Accumu- | 9545: 29 24 ED 499 JSR LINPRT :Print line number 
lator must be either the trace character | 9F48: A9 A® 500 LDA #space 
: 9F4A: 20 ED FD 501 JSR COUT :Print space 
proper ($A3) or, in FLASH mode, the | 971° 39 ap 9a 502 JSR SAVIOTRU ‘Restore intercepts 
pound sign ORed with $40 ($E3). This being | 9F59: 38 583 SEC ‘For free space calc 
the case, why test for the trace character at | 9F51: 4C C6 9E ry JMP —-NXTASCHR 
all? Instead, why not simply test for OUT- 596 « -> FLASH token 
RACE activity? If found, program flow ~— ie ae figs = 
‘ gs 4: A ASH LDA #"#".$ 
passes to BITRACE] (line 383 of Listing | 9556: po 92 509 BNE FLS1 niways 
1); if not found, it continues processing 510 
through VSTATE4 511 « -> INVERSE or NORMAL token: 
é a 512 
Listing 3 patches the beginning of | 9F58: a9 A3 513. BNOFLS LDA #"#" ;Apsoft trace char 
VSTATE4 to do just that. Lines 23-29 9F5A: 8D 61 9F 514 FLS1 STA TRACECHR 
: A 9F5D: 98 515: TYA ;Put token in A 
install the patch when FLASH.PATCH is | 9F5€: pa 8c 516 BNE GOGETST1 :Always 
executed. The actual patch starts by saving | 9F69: 90 ys BRK Never 
the entry Accumulator contents on the stack 519 . Trace Character Storage [$9F98]: 
(line 37) and the entry X in the global page S20 gasensssceeciees Ar ae eas erence 
(line 38). As in the original code, a check | °F°!: 43 pes SECON OF icidcadutee coat 
is now made for OUTRACE output (lines 523 » Write Buffered Data [$A025]: 
39-45). Note that we must search one byte eres oe eae 
deeper into the stack because of the PHA 526 
instruction in line 37. If output does not So + Set for maximum of 256 bytes: 
originate at OUTRACE (lines 42 and 45), OFEE: AQ oO 529 WRBUFDAT LDA #8 
flow branches to line 48, where the entry | 9FFO: A® 91 530 LDY #1 :$10@ bytes to write 
Accumulator is restored and three NOP | °FF?: 08 13 ee Bae HARMON GIROREYS 
bytes are used as fillers. Flow drops to line 533 « Write buffered data and check error: 
isti -Regis 534 
ride OF LISHhg 1, Wheto tie SAtiy se aie 9FF4: 20 82 AQ 535 WRBUFDA1 JSR WRBUFDA2~ Write data 
is restored and STATE 4 handling con- | 9FF7: 99 23 536 BCC  RTS6 ‘No error. Exit 
tinues. OUTRACE activity is routed to Spek es eed bay anhad preserve # 
. . . ;Remove return a ress 
BITRACE] via lines 46-47. — OFFB: 68 539 PLA from stack 
To install the patch temporarily, use your | 9FFC: 98 548 TYA ‘Restore A 
assembler to enter Listing 3 in its entirety. | 9FFO° 4¢ EE 9A cae SAP CERROR PSO. Hove bron hangler 
If you don’t have an assembler, enter the 543 « Write buffered data to disk: 
; : es ; 544 
Monitor with CALL 151. Then key in the hens abr ae wx -WORDae ke Me 
code as one continuous block starting at | agg2: aD 4A BE 546 LDA TBUFPTR ;Get data count (<256) 
$8000, ignoring the second origin at line | A905: FO 14 547 BEQ  CLCRTS1 :No data found 
35 and i Iti h ‘ns gail AGQ7: 8D D9 BE 548 WRBUFDA3 STA RWCOUNT :Set # bytes to write 
and its resulting change in addresses. | agga: 8c DA BE 549 STY RWCOUNT+1 ; in WRITE parmlist 
Save the program with the command: A@BD: AI CB 550 LDA #WRITE 
AQOF: 20 70 BE 551 JSR GOSYSTEM —-; WRITE call 
BSAVE FLASH.PATCH,A$8000,L$28 AG12: 48 552 PHA ;Save error code 
. . ; AG13: AI BO 553 LDA #8 
Installing the patch is then a simple matter | agi5: 8D 4A BE 554 STA TBUFPTR ;Zero buffered data count 
of entering the command: AG18: 68 555 PLA ;Restore error code 
AG19: BO Bl 556 BCS RTS6 :CS=error 
2 AG1B: 18 557 CLCRTS1 CLC :CC=no error 
FLASH.PATCH AGBIC: 6B 558 RTS6 RTS 
. F 559 ¥---------------- 2+ eee 
To make the fix permanent, type: 560 » Applesoft Token Table [$8873]: 
561 «------------------------------ 
BLOAD BASIC.SYSTEM,TSYS,A$2000 562 ORG $8819 
: 563 
Enter the Monitor (CALL — 151), type the 564 » Tokens handled normally (lower case) have hi 
actual patch (lines 37-49 of Listing 3) into 565 « bit set. Tokens requiring special handling 
1 . $282C 2845 d 7 566 « (upper case) are replaced by values which 
ocations -$ > an type: 567 « are branch offsets in BI Trace Processing. 
568 
BSAVE BASIC.SYSTEM,TSYS,A$2000, | 8819: 80 81 82 569 APTKNTBL HEX 808182 send, for, next 
L$2800 B81C: 83 84 85 570 HEX 838485 :data, input, del 
B81F: 86 87 88 571 HEX 868788 :dim, read, gr 
Note that the entry addresses and the final | 8852: 89 Bf 88 372 ee eee a ake Bit 
addresses in the PRODOS system file are | 8828: 8F 90 91 574 HEX  8F9@91 :vlin, hgr2, her 
different, although the low bytes corre- | 8828: 92 93 94 575 HEX 929394 ;hcolor=, hplot, draw 
& E . Y , B82E: 95 96 97 576 HEX 959697 :xdraw, htab, home 
spond. If you are installing this patch in BI | gg31: 98 99 9A 577 HEX  98999A ‘rot=, scale=, shload 
Version 1.0, start entering the code at 
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B834: 23 28 5A 578 HEX  23285A ; TRACE, NOTRACE, NORMAL : : om 
B37: 5A 56 AQ 579 HEX  5A56AQ SINVERSE, FLASH. color= $285B. Also, note that this patch is only 
B83A: Al A2 A3 580 HEX  A1A2A3 ;pop, vtab, himem: good for BI Versions 1.0 and 1.1. It will 
B83D: A4 A5 34 581 HEX  A4A534 ;lomem:, onerr, RESUME ati : . ‘ 
B849: A7 A8 AQ 582 HEX A7A8A9 ;recall, store, speed= not be compatible with subsequent releases 
B843: 1F AB AC 583 HEX — 1FABAC ‘LET, goto, run of the BASIC interpreter. Presumably, 
een o oh SA nts at ie Pe rary Apple will have the bug fixed by then. 
: ; ub, return, rem . . . 
B84C: B3 B4 BS 586 HEX B3B4B5 ‘stop; Ons wailit This generic solution to the trace character 
a ae be = at we eee ; load, save def problem has widespread implications. All 
: OBB ;poke, PRINT, cont c 
B855: 13 BD BE 589 HEX  13BDBE ‘LIST, clear, get BI code employing TRACECHR may now 
B858: BF 590 HEX BF new be eliminated. Special processing of 
NORMAL, INVERSE and FLASH tokens 
--End assembly, 697 bytes, Errors: © also becomes superfluous. The net result is 
END OF LISTING 4 cleaner, less convoluted BI code. 
The nonprocessing of tokens (e.g., RE- 
SUME, TRACE, NOTRACE) following 
LISTING 2: Appl S ae true IF-THEN statements will still be a 
Note: Don't ser tile coos i alread exists in Applesoft ROM. problem. Although not within the scope of 
7 . y SASS slits : this article, a solution may be found by pro- 
; a uo. 7 cessing IF-THEN statements within the BI 
2 * a itself. It’s not complicated. 
: ‘ Applesoft ROM Routines * Implementation of these ideas requires re- 
5 ‘ Interpreted by Sandy Mossberg é writing a bit of the BI code. When Apple 
6 * * Computer gets around to revising Version 
q KA e MAE ER Oe RES EEE PERRO RE EEN ENS OOS EO ee 1.1, I sincerely hope they take these ideas 
9 « Merlin-Pro Assembler into consideration. If you detect a flaw in 
18 Benn : aes 
1l INVFLG = $32 ;Character output mask Aye TeASOnING » please embarrass me. 
12 CURLIN = $75 ;Current line# 
13. OLDTEXT = $79 ;Save TXTPTR UPCOMING 
14 FAC = $9D ;Floating point accumulator . ; : 
15. CHRGET = $B1 : Bump Ter eT and get char The next installment of Disassembly Lines 
16 CHRGOT = $B7 ‘Get char at TXTPTR will look at validation and processing of BI 
me eta ‘ HE alia commands. Subsequently, we shall begin 
19 TRCFLG = $F2 ‘Trace flag dissecting individual commands. 
g 
208 ORMASK = $F3 ; FLASH mask 
21 REMSTK = $F8 ;Save stack pointer 
22 CMDTBL = $DOBBB :;Statement command table 
23 RTN1 = $D857 ;RTS instruction 
24 ISCNTC = $D858 ;Check for CTL-C 
25. GOCMDLP = $D88A :Go to CMDLP if carry clear 
26 GOTOCMD = $D93E ‘GOTO command COMPUTER ROAD ATLAS 
27. ADDON = $D998 ;Add (Y) to TXTPTR 
28  REMN = $D9A6 ;Find EOL 
29. ~FRMEVL) = $D9C9 ‘Evaluate formula at TXTPTR TAKE TRIPS WITH COMPUTER 
30  LETCMD = $DA46 ;LET statement LISTINGS SHOWING THE 
31 OUTSP = $DB57 ;Output space BEST ROUTE 
32. SYNCHR = $DECO ;Assure TXTPTR = (A) 
33. SYNERR = $DEC9 ;Print ?SYNTAX ERROR Enter the departing city and the destination city. 
34 LINPRT = $ED24 iPrint decimal of (A,X) ROADSEARCH computes and prints the shortest 
35 WAIT - $FCA8 Delay route 
36 COUT = $FDED ;Output char ; 
37 ROADSEARCH contains 406 cities/road junctions 
38 goto = $AB ;GOTO token and 70,000 road miles. ROADSEARCH-PLUS (extra 
39 then = $C4 ; THEN token cost) also contains a ROADMAP DEVELOPMENT 
- SYSTEM which lets you customize your roadmap 
PAogsie's etiarise apie SA SASPOre ith 50 juncti here in North 
42 e New Statement Haadlere adhe towns/road junctions anywhere in No 
BS) sipemabaja as teaeiemneenbis sobeEI waeee ; 
44 ORG $D7D2 EASY TO USE. Back-up copies allowed. Specify 
45 Commodore-64/disk or Apple Il. 15 DAY MONEY- 
D7D2: BA 46 NEWSTT TSX ;Save stackpointer BACK GUARANTEE. 
D7D3: 86 F8 47 STX  REMSTK ; ’ 
ROADSEARCH-PLUS is $74.95 and ROADSEARCH is 
D7D5: 20 58 D8 48 JSR -ISCNTC ;Check CTL-C abortion ; 
D7D8: AS B8 49 LDA TXTPTR ‘Prepare to save TXTPTR Only $94.95 MD residents add Si State tax. Ask your 
D7DA: A4 B9 58 LDY  TXTPTR+1 dealer or: 
D7DC: A6 76 51 LDX CURLIN+1  ; Immediate mode ($FF in ____ __MAILCOUPON ORCALLTODAY__ __ __ 
D7DE: E8 52 INX ; CURLIN hi)? 
D7DF: FO 04 53 BEQ  CKEND ‘Yes Columbia Software (301) 997-3100 
D7E1: 85 79 54 STA OLDTEXT ;No. Save TXTPTR Box 2235E, Columbia, MD 21045 
D7E3: 84 7A 55 STY OLDTEXT+1 
D7E5: AD 2B 56 CKEND LDY #0 Please send me: 
D/E9: D2 5788 Bae ae loneena. Theva be te Ee ii See 
z ;Nonzero ou e . 
; ( JROADSEARCH for $34.95 ( )C-64 disk 
D7EB: A® 82 59 LDY #2 ;Zero. Check absolute or 
D7ED: Bl B8 68 LDA (TXTPTR),Y ; relative link byte hi Add $1.50 shipping. If | am not satisfied, | may return 
D7EF: 18 61 CLC it for a full refund. 
D7F@: FO 34 62 BEQ EOP ;Zero. End program () check ( ) Master Charge (.) VISA 
D7F2: C8 63 INY ;Nonzero. Deferred mode only 
D7F3: Bl B8 64 LDA (TXTPTR) .Y 
D7F5: 85 75 65 STA CURLIN ;Line# lo Card Number Expiration Date 
D7F7: C8 66 INY 
D7F8: Bl B8 67 LDA (TXTPTR) .Y Name 
D7FA: 85 76 68 STA CURLIN+1 —_; Line# hi 
D7FC: 98 69 TYA Address 
D7FD: 65 B8 78 ADC  TXTPTR :Set TXTPTR to lst char of 
D7FF: 85 B8& 71 STA  TXTPTR ; line contents City/State/Zip 
D8G1: 98 B2 72 BCC EXECUTE 
continued on next page ORDERS: 1-800-835-2246, EXT. 172 
eee ESE 
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THIE P.A.C.IK. 


( Programmer's Assembly-language 
Construction Kit ) 


Bishop with Lucia Grossberger 


Create fantastic 
programs with great 
special effects !! 
SS 
The P.A.C.K. is a programming 
construction kit that gives you a multitude of 
building blocks (subroutine modules) and the 
utilities (Editor, Assembler and Linking 
Loader) to put these blocks together to build 
or add to your own programs. 


An exciting tool thats easy to use ! 

The documentation gives clear and complete 
instructions for using the Editor, creating 
relocatable files, running the Linking Loader, 
creating and using subroutine libraries. 


PRICE: $49.95 plus $3.00 shipping 
( sales tax as applicable ) 
Specify DOS 33 or ProDOS . 
from INTERACTIVE ARTS 
2715 PORTER St. 
SOQUEL, CA 95073 
(408) 475-7047 
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CUT PRINTER RIBBON COSTS 
BY 75% OR MORE. 


DON'T BUY NEW RIBBONS 
RE-INK YOUR OLD ONES 
Re-ink printer ribbons for less than a nickel 


Unique motor-driven MK/II inker replaces 
ink in fabric ribbons by capillary action. 
There is a model for virtually ANY ribbon 
cartridge. No handling the ribbon, the cas- 
sette stays closed. Comes complete with a 
supply of special lubricant ink. Great for /et- 


ter quality printers too. Thousands of MK/II 
printers used world wide. 


MK/II INKER, with 2 0z. black ink 
$54.94 includes Shipping (U.S.A. only) 
Ship To: 

NAME: 


ADDRESS: 
CITY: STATE: 


MAKE-MODEL OF PRINTER: 
(Please use street address as UPS cannot deliver 
to a P.O. Box.) Penna. residents add 6% sales tax 


Payment Enclosed Check or money order 
(No cash, Please.) 


MASTERCARD VISA (No Premium) 

CantNo: ff / / Exp .Daie> 7 

Signature: 
Mail To: , 


BIULL IPIEININGIPIRIOIOIUIC| TIS 


P.O. BOX 3517 YORK, PA 17402-3517 
(717) 757-7015 


ZIP: 


CIRCLE NUMBER 61 
128 January 1986 © Nibble Magazine 


LISTING 2: Applesoft ROM Routines (continued) 


D893: 


D895: 
D897: 
D899: 
D8B: 
D8ac: 
D8GE: 
D819: 
D813: 
D815: 
D817: 
D81A: 
D81D: 
D829: 


D823 


D826: 


D828: 
D82A: 
D82C: 
D82E: 


D838 


D832: 


D833 


D834: 
D837: 
D838: 
D83B: 
D83C: 


D83F 


D842 


D844: 


D846 


DB57: 
DB59: 
DB5B: 
DB5D: 
DB5SF : 
DB62: 


DB64 
DB65 
DB67 
DB6A 


DB6B: 


D9Cc9: 
DSCC: 
DOCF: 


D9D1 
D9D3 


D9D5: 


D9D8 


DODA: 


D9DC: 


DODF 


D9E1 
D9E4 


D9E6: 


D9E9 


E6 B9 


24 F2 
19 14 
A6 76 
E8 

FO OF 
AQ 23 
28 57 
A6 75 
A5 76 
28 24 
20 57 
28 Bl 
28 28 
4C D2 


FQ 62 


F® 2D 
E9 88 
98 11 
co 48 
BO 14 
BA 
A8 
B9 91 
48 
BO BO 
48 
4c Bl 


4C 46 


C9 3A 
FO BF 
4c c9 


28 C9 
28 B7 
C9 AB 
FR @5 
AQ C4 
28 CO 
A5 9D 
D@ 5 


20 A6 
F@ B7 


20 B7 
BS 93 
4C 3E 
4C 28 


66 F2 


DB 


ED 
DB 
12)4) 
D8 
D7 


D9 
80 


D9 
D8 


73 
74 
75 
76 
77 
78 
79 
89 
81 
82 
83 
84 
85 
86 
87 
88 
89 
98 
91 
92 
93 
94 
95 
96 
97 
98 


INC TXTPTR+1 
EXECUTE BIT TRCFLG ;Trace active? 
BPL GETSTT ;No 
LDX CURL IN+1 :Yes 
INX 
BEQ GETSTT ; Immediate mode. Skip trace 
LDA #'#! ;Deferred mode. 
OUTRACE JSR OUTDO Print "#" (BI TRAPS THIS!) 
LDX CURLIN 
LDA CURL IN+1 
JSR LINPRT :Print decimal line# 
JSR OUTSP 
GETSTT JSR CHRGET ;Get next char 
JSR TYPSTT ;Evaluate and process it 
JMP NEWSTT ;Back for more 
EOP BEQ GOCMDLP ;Route flow to CMDLP 
TYPSTT BEQ RTN1 ;Allow leading/trailing colon 
SBC #$80 ;Token or nontoken? 
BCC LETSTT ;Nontoken. Must be LET statement 
CMP. #$48 ; Token 
BCS GOSYNERR ;Syntax error if token > $BF 
ASL ;Double index to CMDTBL 
TAY ;Transfer to (Y) 
LDA CMDTBL+1,Y 
PHA ;Hi byte on stack 
LDA CMDTBL ,Y 
PHA ;Lo byte on stack 
JMP. CHRGET ;Get next char then RTS- jump 
LETSTT JMP LETCMD ;Execute LET (assign) statement 
EOS CMP #' :;Colon? 
BEQ EXECUTE :Yes. Process next statement 
GOSYNERR JMP SYNERR >No. Syntax error 
Output Character: 
ORG $DB57 
OUTDO ORA #$80 ;Assure negative ASCII 
CMP. #$AG ;Control char? 
BCC PRCHR :Yes. Print invisible char 
ORA ORMASK »; FLASH=$48. NORMAL/ INVERSE=9 
PRCHR JSR COUT ;Output char 
AND #$7F ;Convert to positive ASCII 
PHA ;Save on stack 
LDA SPDBYT i;Fastest=1. Slowest=$FF 
JSR WAIT ;Delay 
PLA ;Restore original char 
RTS ;Back to caller 
IF Statement Handler 
ORG $D9C9 
IFCMD JSR FRMEVL ‘Evaluate formula after IF 
JSR CHRGOT ;Get char after formula 
CMP. #goto 
BEQ il ;GOTO found 
LDA #then 
JSR SYNCHR ;Assure THEN found 
1 LDA FAC 
BNE IFTRU ; IF evaluates true 


« REM (or False IF) Statement Handler 


REMCMD JSR REMN :Skip remainder of line 
BEQ ADDON :Always 
« True IF Statement Handler 
IFTRU JSR CHRGOT :Get char after GOTO/THEN 
BCS ea :;Command (statement) found 
JMP GOTOCMD ;Number found 
1 JMP TYPSTT ;Execute command 


ORG $F26D 
TRACECMD SEC 
HEX 98 ;Skip next byte 


NOTRCCMD CLC 
ROR 
RTS 


TRCFLG :Shift carry into trace flag 


LDA #-1 ;Clear output mask 
BNE NOFLASH Always 


F280: 
F282: 
F284: 


8200: 
8202: 
8005: 
8208: 
8229: 
800B: 
80D: 


9E2C: 
9E2D: 
9E30: 
9E31: 
9E34: 
9E36: 
9E38: 
9E3B: 
9E3D: 
9E3F: 
9E40: 
9E42: 
9E43: 


28 
GE 
2c 


1A 
F5 


--End assembly, 


END OF LISTING 2 


88 
9E 


BE 
@1 


@1 


EA 


--End assembly, 


END OF LISTING 3 


“ 


169 o-- nnn nner ee een nnn tere ner neee 

178 « INVERSE Statement Handler: 

171) 4#------------------------------ 

172. =INVCMD LDA #$3F ;Set inverse output mask 
173, NOFLASH LDX #4 :;Clear flash mask 

174 SETMASK STA INVFLG ;Set output mask 

175 STX ORMASK ;Set flash mask 

176 RTS 

177) a ---- +--+ - eee eee 

178 « FLASH Statement Handler: 

179) «----------+----- +--+ 2-22 +2 --- 

18@ FLASHCMD LDA #$7F ;Set flashing output mask 
181 LDX #$48 ;Set flash mask 

182 BNE SETMASK ;Always 


208 bytes, Errors: © 


a re 


LISTING 3: FLASH.PATCH 
See instructions to enter. 


1 PTeCECTOCTOCOCOOCOCTOCOCEOCeCO ooo Ter 

2 * FLASH. PATCH * 

3 * * 

4 » Corrects THEN-FLASH bug in BI « 

5 » [BI 1.1 addresses bracketed] ” 

6 ” by Sandy Mossberg * 

7 * Copyright (C) 1986 * 

8 * by MicroSPARC, Inc. * 

9 * Concord, MA 61742 * 

10 PUTT TECOTOT EOL e eee reer 

11 

12 « Merlin-Pro Assembler 

13 

14 STACK = $190 i Stack 

5 BITRACE1 = $9EB6 ;BI trace processing [$9EE1] 
16 PREGX = $BE3F ;Save X-reg [same] 

17 OUTRACE = $0819 ;Trace char output 

18 

19 ORG $8200 

28 

21 » Move PATCH to BI: 

22 

23 LDX #D 

24 MV1 LDA PATCH, X 

25 STA VSTATE4,X 

26 INX 

27 CPX #PATCH1 -PATCH 

28 BCC MV1 

29 RTS 

38 

31 » PATCH corrects THEN-FLASH bug: 

32 

33 PATCH = * ;Starting load address of patch 
34 

35 ORG $9E2C ; [$9E5B) 

36 

37 VSTATE4 PHA ;Save entry A 

38 STX PREGX ;Save entry X 

39 TSX ;Use stack pointer as offset 
48 LDA  STACK+4,X ;Check stack for Apsoft 

41 CMP HOUTRACE+2 ; trace printing 

42 BNE ik ;Not trace printing 

43 LDA STACK+5,X 

44 CMP #>OUTRACE+2 

45 BNE ar ;Not trace printing 

46 PLA ;Trace printing. Restore A 
47 BCS BITRACE1 ; Always 

48 el PLA ;Not trace printing. Restore A 
49 HEX EAEAEA ;Filler NOP bytes 

58 

51 ORG ;Recall load address 

52 

53 PATCH1 = * ;Ending load address+1 of patch 


40 bytes, Errors: @ 


I _ 


Would you like to own 


THE BEST WORD PROCESSOR 
IN THE WORLD! 


Now. maybe you can Softinson Data Corporation presents 


the 
SOFTGLOW 
WORD PROCESSING SYSTEM 


The Softglow Word Processing System is a remarkable new 
word processor for the Apple Il, Il+. and lle Softgiow s 
powerful. fast, easy to use. and easy to learn Add to this its 
low price. and you have a system with one of the best (if not 
the best) price/performance ratios of any word processor 
on the market today 


Some Facts—Softglow: 


iS very fast (written completely in assembly language) 
—uses standard DOS text files—has wrap around soft hy 
phens. non-break spaces, and multiple headers and footers 
—will work with any printer--has macros—software Is 
unprotected—uses the full capabilities of the Apple !le—for 
Apple |! and ll+ supports lowercase chip. shift key mod 
ification, enhancer boards. and 16K RAM board 


Some Figures—Softglow has: 

12 Cursor Control Comrnands—5 modes of updating text 

9 DOS File Commands—9 Block Commands—11 Find and 
Replace Options—25 Print Format Commands— 22 Contig 
uration Parameters—32 Tap Stop Positions 


And The Best Figure Of All: 


$49 95—introductory Price 


Interested? For more information on the Softglow Word 
Processing System. circle the reader service card or write to 


Softinson Data Corporation 
PO Box 230 
Penfield. New York 14526 


TO ORDER: 


Check, Money Order. Visa. and MasterCard accepted Make 
check or money order payable to Softinson Data Corp Visa 
and MasterCard give card number and exp date Add $2 00 
tor shipping and handling New York State residents add 7% 
sales tax 


Softgiow is a trademark of Sottinson Data Corporation 
Apple is a trademark of Apple Computer Inc 


CIRCLE NUMBER 62 


OPTIMAL TECHNOLOGY INC 
= EP-28-79 ; 
«PROM PROGRAMMEN 
orr 
rowan 


PERSONALITY Pro, 
y ORAM ay 3 
ow SOCKer wat J 


Pim 


ore 


PROGRAM 
vecraaune 
~ 


EPROM PROGRAMMER 


MODEL EP-2B-79 for Apple II 
programs 2764, 27128, 27256 in 
45. 90 and 200 seconds. Software 
supports program, verify copy, disk 
I/O. check sums, printer, $374.00. 
Personality modules available for 
2708 thru 27512 and 8748, 8751. 


Optimal Technology 


Earlysville, Va. 22936 
804-973-5482 
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NIBBLE 
LIGHT PEN 


UOUEUUUUOUHOUOOUAUNUOUOOEOUEOEANOGOEONCHOGOONOHOOO@M@UOCHOONOUOOOONOONOnoONaOHOONONNOD 


WUUUHONUONODGCONENEGUOGNONOGNONOONOUHOOOONOONOOEONON OOM UHOKOnOCHOOUaOoNeONoNeONediON 


NEUE ommenmeeeeeed AU LUTURTONNCLUOEOCOUOOOOEOOEONOOOOEOONE 


AUUEHUUNDUNEOUAUANEUOGU OG OUEDANO@MGd UU UNA UOOUADOOAONCEAOEO NERO OGKOEONONOOHAOeONOONaoibitE 


OUUUOUUOAEEREEOOEUOOEEEODEEDOONHEEEELE HOHE Ea 


SULLA LCCUL COLELLO LULL 


VUUETEEECOOCEU TET 


en dollars worth of 


parts and a short machine language program are all you need to add this 
convenient accessory to your Apple. An Applesoft demonstration program 
illustrates techniques to use the light pen to select items from menus. 


COOOL CCC CCUCCCOCCCUCCCO LCCC COC CCOCC LOL UCCC CUCU CCU CCC LCUCO CSCC 


ost commercially available 

light pen systems use hard- 

ware to detect the location 
of the pen on the screen. This allows excel- 
lent resolution; some systems are even accu- 
rate to one pixel. They are also expensive, 
both in terms of hardware cost and system 
complexity, making them impractical for the 
average home user. 

This article describes a light pen that is 
inexpensive and easy to construct. It uses 
just three active electronic parts that cost 
about $10 and an ordinary ballpoint pen 
case. Despite its simplicity, the Nibble Light 
Pen is reliable and provides an effective, 
direct way to interact with any of the Apple 
// family computers. Like the mouse, the 
Nibble Light Pen lets you bypass the key- 
board. Just point the light pen at the screen 
— you don’t even need to ‘‘click.”’ 

The Nibble Light Pen consists of two 
basic elements: the light-sensing hardware 
and a machine language driver routine. 
Briefly, when the light pen detects the light 
from an inverse block on the screen, it trans- 
mits a pulse to one of the lines in the Apple 
// game port. This signals the driver rou- 
tine to determine the screen position and 


David Gauger, II, 1430 E. 55th Pl., Tulsa, 


OK, 74105. Nibble Light Pen is compatible 
with DOS 3.3 and ProDOS. 


store the coordinates in memory. The calling 
program can then PEEK these memory loca- 
tions to get the coordinates. 


THE HARDWARE 

Some hardware-based light pen systems 
use the time it takes for the monitor’s elec- 
tron beam to get from the bottom of the 
screen to the top to calculate the pen’s loca- 
tion. Others interrupt the microprocessor 
when the pen detects the raster scan on a cer- 
tain line. To keep the hardware simple, this 
system uses software to determine the pen’s 
position. The hardware’s sole function is to 
detect light. 

The light pen is equipped with a photo- 
Darlington light detector. This is a sensitive 
but fairly inexpensive semiconductor that 
interfaces to the Apple // game port with the 
help of resistors. 

There are three pushbutton inputs in the 
Apple // game port. Each one corresponds 
to a specific address in memory, and to a 
specific pin in the game port connector. 
When the light pen is pointed at a single in- 
verse block, the photo-Darlington delivers 
about +1 volt to a pushbutton input. If the 
resulting voltage on that button’s pin is +1 
volt or more, a value of 128 (hex $80) or 
greater is stored in the corresponding 
memory address. To see if the button has 
been ‘‘pushed’’ by the light pen, the pen 
software reads the location (address) of the 


button. This is accomplished in BASIC by 
a PEEK statement. 

Although it will work adequately without 
it, I added a variable resistor to the light pen. 
This component makes it possible to vary 
the light threshold level at which the photo- 
Darlington delivers +1 volt to the pushbut- 
ton input. It increases the circuit’s sensitiv- 
ity, allowing the pen to respond adequately 
to much dimmer light levels. 


THE DRIVER 

The software driver (Listing 1) is a short 
machine language routine that resides in 
memory page 3. It is designed to be used 
as a subroutine that can be CALLed by a 
machine language or BASIC program. 

When CALLed, the driver searches every 
point on the screen for an inverse block. 
When it finds one, it determines whether this 
is the block at which the pen is pointing. If 
not, the routine looks for the next block. 
When the driver finds the correct block, it 
sounds a tone to notify the user, stores the 
vertical coordinate of the block in location 
768 (hex $300), stores the horizontal coor- 
dinate in location 769 (hex $301), and 
returns to BASIC. From BASIC your main 
program can PEEK these two locations to 
find out where the pen is pointing. 


CONSTRUCTION 
To get the system up and running, con- 
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FIGURE 1: Schematic for Apple Il, Il Plus, and //e Light Pen (DIP Connector) 


(Inset: Lead Diagram for Photo-Darlington [Sylvania ECG 3036 or Motorola MRD 360]) 


Lead Diagram for 
Photo-Darlington 


Bottom View 


(No Connection) 


aS 


Photo-Darlington 


struct the light pen as shown in the diagram 
appropriate to your machine. If your com- 
puter uses a 16-pin DIP game socket (Apple 
II, II Plus or //e), then use the parts listed 
in Table 1, following the schematic diagram 
in Figure 1. Use Figure 2 and the parts in 
Table 2 if you have a //c or have equipped 
your machine with a DB-9 game socket. 
Next, type in the assembly listing (Listing 
1), which is the same for all machines. If 
you do not have an assembler, consult the 
instructions in ‘‘A Welcome to New Nibble 
Readers’’ for help. Save the program to disk 
with the statement: 


BSAVE PEN.DRIVER, A$302,L$8C 


Any shielded cable may be used, but the 
more flexible it is, the easier the pen will 
be to manipulate. I used a disposable type 
of pen barrel to house the photo-Darlington, 
but anything that resembles a pen will do. 
Just be sure to feed the shielded cable down 
the center before you solder the light detec- 
tor in place. Heat the leads of the photo- 
Darlington as little as possible, and mount 
it to provide close proximity to the screen 
(1/8 inch or less). 

Any photo-Darlington may be used, pro- 
vided it has adequate sensitivity for this 


a Shielded cable 


Center Conductor 


vie shielded cable 


View from back side of 
Male DB-9 Connector 


SWO (PBO) 


application. You may have difficulty finding 
one though, since photo-Darlingtons are 
used almost exclusively in industrial appli- 
cations, and electronics stores like Radio 
Shack do not carry them. An industrial elec- 
tronics supply house should do the trick. 


ADJUSTING THE LIGHT PEN’S 
SENSITIVITY 

When the pen is constructed and the soft- 
ware has been loaded, use the following 
procedure to adjust the light pen’s sensitiv- 
ity. Set the brightness and contrast of the 
monitor to your liking. With the driver in 
memory, type in and run this short test 
program: 


19 HOME 

28 VTAB 18: HTAB 12 

38 INVERSE 

4@ PRINT " ": NORMAL: REM 1 SPACE 
5@ CALL 77@ : REM LIGHT PEN DRIVER 


6@ PRINT PEEK(768) 
7@ PRINT PEEK(769) 


The Apple responds by placing an inverse 
space on the screen. Note that this square 
of light is probably blinking or flickering. 
If it is not, try turning the variable resistor 
to one end or the other of its range. If you 
still cannot get it to flicker, there is probably 


3 ft. of thin Sensitivity 


Adjustment 
1000 ohm 
Potentiometer 


sdlaectbiind Sensitivity 


Adjustment 
1000 ohm 
Potentiometer 


something wrong with the light pen or the 
driver software. 

Turn the sensitivity adjustment to the end 
of its range so that the light blinks on and 
off very rapidly. The sensitivity is now at 
its lowest level. Turn the adjustment up until 
the light begins to flicker, then back it off 
slightly. The sensitivity is now at its highest, 
and the pen will respond to lower light levels 
from the screen. Touch the pen to the in- 
verse space. The Apple should beep and then 
print a 9 above an 11. These are the coordi- 
nates of the block the driver found. 

Set the sensitivity so that the light pen sys- 
tem locates the correct block every time. 
There should be a range of settings that 
make this possible. If the setting is too high 
or too low, the driver will sometimes return 
with the wrong block. The light pen system 
is now finished and ready to be used. 


THE SOFTWARE 

Because of the disjointed arrangement of 
text screen memory in the Apple, it is diffi- 
cult to keep track of screen positions with 
simple row and column pointers. Fortun- 
ately, there is a built-in ROM routine called 
BASCALC that calculates the starting ad- 
dress of a screen row, given the number of 
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the row. Just place the row number in the 
Accumulator, execute BASCALC, and the 
address shows up in the addresses $28 and 
$29 (called BASL and BASH). An offset, 
representing the column position, completes 
the calculation of a screen memory location. 

With BASCALLC, it is possible to use two 
counters to keep track of the current text 
screen position. I use one counter to track 
the line number given to BASCALC 
(VCOUNT). The other, HCOUNT, is the 
offset value, which, in effect, is the horizon- 
tal counter. These are the two locations that 
you PEEK from BASIC to find out where 
the pen is pointing when the driver is called. 

The Apple screen can accommodate 960 
characters at one time. Obviously, checking 
for the light pen at all 960 character loca- 
tions would be unnecessarily slow. A more 
efficient method would be to scan the screen 
for a pre-selected character. When scanning 
for a specific character, the driver would test 
perhaps 10 or 20 character locations for the 
light pen, instead of 960. Since the pen de- 
tects light, I chose to have it scan for the 
inverse space, which radiates a lot of light. 
However, it is possible to modify the driver 
to scan for any character that gives off 
enough light to trigger the photo-Darlington. 

We've narrowed the scan down to 10 or 
20 locations. Which one is pointed to by the 
light pen? In a typical application, the rou- 
tine scans the screen and finds 10 inverse 
blocks. The pen is pointing to one of the 
blocks, but 9 of the 10 blocks are ‘‘wrong.”’ 
The most efficient way to find the correct 
block would be to first detect the wrong 
blocks. 

I used the process of elimination to iden- 
tify the correct block. As long as the light 
pen points at an inverse square, it transmits 
+1 volt to the pushbutton input (PBO). To 
test a block, the routine replaces the inverse 
space with a regular, dark space, and it 
checks the voltage at the PBO. If the PBO 
still holds +1 volt, the pen is not pointing 
at the darkened test block. 

The ‘‘block off’’ test alone is not suffi- 
cient to positively identify the correct block. 
For instance, suppose the pen is pointing at 
the ground when the driver is called. In this 
case, since the pen detects no light, it does 
not transmit voltage to the PBO. However, 
when the driver tests the first block, it 
assumes that the light pen is pointing at the 
darkened test block. The solution is to add 
a second test: turn the test block back on by 
storing an inverse space there again, and 
check the PBO to see if the light pen again 
transmits +1 volt. 

These two tests usually locate the correct 
block, but they’re not foolproof. To increase 
accuracy, I added another block off test. 
With adequate brightness and the sensitivity 
level set correctly, the reliability of these 
three tests approaches 100%. 

When it does find the correct block, the 
driver replaces the space with an inverse 


TABLE 1: Parts List for the Apple Il, I! Plus and //e DIP Connector 


Item 


Photo-Darlington 


1 kilohm potentiometer 


1 ohm resistor 1 
16-pin DIP connector 1 
Shielded cable 3 ft. 
Disposable pen 1 
(BIC Biro works well) 


"Radio Shack (7271-227), 


Sylvania #ECG 30 
RCA #MRD 360 


Industrial electronics supplier 
(Radio Shack does not stock) 


Radio Shack (#276-1980) 
Radio Shack (#278-1277) 


TABLE 2: Parts List for the Apple //c and //e DB-9 Game Ports 


Item Quantity 
Photo-Darlington 1 

1 kilohm potentiometer 1 

1 ohm resistor 1 
Male DB-9 connector 1 
Shielded cable 3 ft. 
Disposable pen a! 
(BIC Biro works well) 


block (the last test is a block off test) and 
sounds a two-pitch bell different from the 
Apple’s bell. The horizontal and vertical 
counters already indicate the correct coordi- 
nates, so the driver returns to the calling pro- 
gram with an RTS. 

If the driver does not find the correct 
block during the first scan down the screen, 
it returns to the top and scans again. The 
routine will return to the calling program 
only if it can find the correct block. 


INSTALLING THE SYSTEM 
To incorporate the Nibble Light Pen sys- 
tem into your own program, first place an 


Source ic 
Industrial electronics supplier ‘$4.75 
Sylvania #ECG 3036 or 

RCA #MRD 360 co. 
Radio Shack (#271-227) $0.59 
Industrial electronics supplier $0.90 
(Radio Shack does not stock) ee 
Radio Shack (#276-1537) $1.99 
Radio Shack (#278-1277) ee 


inverse block or blocks on the screen. In 
BASIC, the code might look like this: 


19 VTAB 18: HTAB 12: 


INVERSE : 


PRINT " ": NORMAL 


Next, CALL 770 (hex $302) which is the 
driver, and touch the light pen to any inverse 
block on the screen. When the software has 
found the spot you’re pointing at (it only 
takes a fraction of a second), you will hear 
a beep. Locations 768 and 769 now contain 
the vertical and horizontal coordinates of the 
inverse block you indicated. 

It is important to note that the horizontal 
and vertical counters start counting at zero. 


Nibble Light Pen, ProDOS Direc- 
tory List, ProCursor, DISPLAY 
and programs from Nibbling at 
Assembly Language V are avail- 
able on diskette for an introduc- 
tory price of $17.95 plus $1.50 
shipping/handling ($2.50 outside 
the U.S.) from Nibble, 45 Win- 
throp St., Concord, MA 01742. 
Introductory price expires 3/31/86. 


LISTING 1: PEN.DRIVER 


PEN. DRIVER 

« BY DAVID GAUGER II « 
» COPYRIGHT (C) 1986 « 
» BY MICROSPARC, INC « 
» CONCORD, MA 1742 » 


oe He oe 


FOOMDONOANSWNHHE 


» MERLIN ASSEMBLER 


aS... 


132 January 1986 © Nibble Magazine 


@382: 
0304: 
8307: 
9309: 


O30C: 
O30E: 
9318: 
0312: 
9313: 
9315: 
9317: 


B31A: 
@31C: 
O31E: 
9321: 
0323: 
9325: 
0327: 
032A: 
@32C: 
O32E: 
9331: 
0333: 
0336: 
0338: 
933A: 
933D: 
O33F: 
0341: 
0343: 


0346: 
9349: 
@34C: 
O34E: 
8350: 
9353: 
@355: 


9358: 
@35B: 
35D: 
O35F: 
9362: 
9364: 
9365: 
9367: 
9368: 
936A: 
O36B: 
O36E: 
O36F: 
0378: 
0373: 


0374: 
9376: 
0378: 
37B: 
O37E: 
O37F: 
9381: 


9382: 
9383: 
9385: 
9387: 
938A: 
@38D: 


--End 


Errors: 


END OF LISTING 1 
a ES 


@3 


3 


83 


®3 


@3 
@3 


83 


93 


@3 


®3 


FB 
@3 
3 


ce 


83 


83 


FC 
(] 


FB 
93 


assembly-- 


148 bytes 


v4) 


ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


PEN 
VCOUNT 
HCOUNT 
BASCALC 
BASL 
WAIT 
SPEAKER 
BELL 
SETUP LDY 
STY 
LDA 
JSR 


MAINLOOP LDA 
CMP 
BEQ 
INY 
CPY 
BEQ 
JMP 


NEXTSPOT 


PENTEST 
TEST1 


LDA 
STA 
JSR 
BCC 
LDA 
STA 
JMP 
LDA 
STA 
JSR 
BCS 
JMP 
LDA 
STA 
JSR 
BCC 
LDA 
STA 
JMP 


TEST2 


TEST3 


NEWLINE INC 
LDA 
CMP 
BEQ 
JSR 
LDY 
JMP 
DETECT STY 
LDX 
LDY 
LDA 
BMI 
DEY 
BNE 
DEX 
BNE 
CLC 
LDY 
RTS 
SEC 
LDY 
RTS 


GETPEN 


YESLITE 


BELL2 
LOOP 


LDY 
LDA 
JSR 
LDA 
DEY 
BNE 
RTS 
EXIT CLC 
LDA 
STA 
JSR 
JSR 
RTS 


INPUT IS READ FROM PB@ (PIN 2): 
ADDITIONALLY, A 1 OHM RESISTOR IS NEEDED FROM PIN 2 
TO PIN 6 OF THE GAME PORT. 


$382 
$C961 
$300 
$391 
$FBC1 
$28 
$FCA8 
$CO38 
$FBDD 


#$29 
VCOUNT 
#$20 
BASCALC 


(BASL) ,Y 
#$28 
PENTEST 


#$28 
NEWLINE 
MAINLOOP 


#SAD 
(BASL) ,Y 
DETECT 
TEST2 
#$28 
(BASL) ,Y 
NEXTSPOT 
#$28 
(BASL) ,Y 
DETECT 
TEST3 
NEXTSPOT 
#SAD 
(BASL) ,Y 
DETECT 
EXIT 
#$28 
(BASL) ,Y 
NEXTSPOT 


VCOUNT 
VCOUNT 
#$18 
SETUP 
BASCALC 
#$28 
MAINLOOP 


HCOUNT 
#$28 
#$29 
PEN 
YESLITE 


GETPEN 
GETPEN 
HCOUNT 


HCOUNT 


#$CO 
#$28 
WAIT 
SPEAKER 


LOOP 


#$28 
(BASL) ,Y 
BELL 
BELL2 


THIS PROGRAM EXPECTS A PHOTO-DARLINGTON TO BE CONNECTED 
FROM PIN 1 TO PIN 2 OF THE GAME PORT. 


ADDRESS $C861 (-16287) 


;CALC ADDRESS OF FIRST LINE 


;GET CHARACTER 

;IS IT A BLOCK? 

;YES -- TEST PEN 

;NO 

;END OF LINE? 

‘YES 

;NO - DO IT ALL AGAIN 


NEW! Lower Prices!! 


wabash 


six-year warranteed 


DISKETTES! 
$9.80/box (10) 


5%"' single-side, single density; double-density 
add $2/box. Add $3 per order shipping. /n /ilinois 


add 7% sales tax. 
Library Case-$1.75 (with disk purchase) 


Immediate shipment on VISA, MasterCard or 
Money order, add 14 days for personal checks. 


CALL TOLL FREE sme 
oe = 


(800) 222-1248 
In Illinois Call (312) 882-8315 


DEALERS! SCHOOLS! USER GROUPS! 
Call for our volume discount prices! 


DIGITAL IMAGES 


1185 Tower, Schaumburg IL 60195 
CIRCLE NUMBER 64 


; TURN OFF BLOCK 
;ANY LIGHT? 

;NO - TEST PASSES 
:YES - TEST FAILS 
;WHERE YOU GOT IT 
;AND TRY NEXT SPOT 


;PUT BLOCK BACK 
;ANY LIGHT? 

;YES - TEST PASSES 
;NO - TRY NEXT SPOT 


; TURN BLOCK BACK OFF 
;ANY LIGHT? 
;NO - TEST PASSES - BLOCK FOUND 


;SO PUT BLOCK BACK 
;AND TRY AGAIN 


; INCREMENT VERT COUNTER 


;I1S IT MORE THAN THE 24TH LINE? 
;YES - TIME TO START AT THE TOP 
;NO - FIGURE NEW BASE ADDRESS 
;ZERO HORIZONTAL COUNTER 

;AND DO IT ALL AGAIN 


;SAVE HORIZONTAL COUNTER 
;SET UP COUNTER 

;LOAD Y COUNTER 

;SEE IF PEN SAW LIGHT 


; THIS LOOP TESTS THE PEN 
;MANY TIMES 


;CLEAR CARRY: NO LIGHT 
;RESTORE HORIZONTAL COUNTER 


;SET CARRY: YES LIGHT 
;RESTORE HORIZONTAL COUNTER 
;LENGTH OF BELL2 

;PITCH OF BELL2 

;CLICK SPEAKER 

;DECREMENT COUNTER 

;DO IT ALL AGAIN 

;FOR SAFETY 

;WHERE YOU GOT IT 


;REGULAR BELL 
;DIFFERENT BELL FOR FUN 


continued on page 136 


—— BUY DIRECT AND SAVE — ecm 
FULLY APPLE COMPATIBLE 


7-80 CP/M Card $ 39.00 
80 Column Card w/Inverse (Videx comp) . $ 58.00 
Autoterm 80 Col w/Softswitch, Inverse (Videx comp) $ 68.00 
Extended 80 Col w/64K Apple //e $ 58.00 
Disk Controller for 2 Drives $ 39.00 
Epson (Parallel) Printer Card w/Cable $ 37.00 
Parallel Graphic Card w/Cable . $ 48.00 | 
Micro Buffer Printer Graphic Card wi32K $ 99.00 
RS232 Serial Card ' - $ 48.00 | 
Super Serial Card w/Cable .. $ 80.00 
16K RAM Language Card w/Cable $3700 
128K RAM Card w/Software & Instructions 

| (Titan, Saturn compatible) : $130.00 | 
Eprom Writer Card (2716, 2732, 2764) $ 58.00 
Diskette Box w/Lock & Key—Holds 100 $ 15.00 
Surge Suppressor Power Center w/6 outlets $ 21.00 

| Super Cooling Fan w/2 outlets, 

Lighted Switch, Surge/Filter $ 34.00 
Disk Notcher w/Guide All Steel, Square Cut . sa “coats: emai $ 8.00 
Slim Disk Drive- Direct Drive w/Elec Sensor, Super Quiet 
1 yr Warranty - Apple Ii/lle $165.00 - Apple lic ....... $175.00 | 
Joy Stick-all Metal, Heavy Duty, Fine Tuning self centering 
Apple 11/11«, 11e & 11¢ (Specify) . $ 25.00 | 
300 BAUD Card MODEM w/Manual & Software- Auto Dial & Ans 

| (Hayes 11e compatible) . $ 99.00 | 
Shipping & Handling Under $100 - 10% - - ~ Over $100 - 5% 
Institutional P 0 Accepted - Dealer Ing. Invited | 
Hours: M - F 9-6 Sun 10 - 4 EST | 
| COMPUTER SUPPLY 
P.0. BOX 164N, VALLEY STREAM, NY 11582 | 


— —— —— — (516) 239-1855 — — —__. _— « 


CIRCLE NUMBER 65 


Get the ProDOS™ advantage for 


+ 
all your Aztec C65° programs 


VIX is a UNIX like operating system 
designed to run Manx's Aztec C65 software 
under ProDOS. With VIX, programs 
running under the SHELL will run under 
ProDOS including c65, cci, as65, asi, In, 
mklib and others. System includes: 


Standard utilities: cat, cp, date, |, mkdir, 


ren, rm and stty. 

An improved library written in 6502 
assembly. 

A fast screen editor with undelete, auto- 
indent, work wrap and more. 

Source code to entire system except 
editor. 


VIX - $49.95 + $3.50 shipping 
Balanced binary tree data base library- $75 
b-tree with source-$350 
Eclipse @ Systems 


223 Matthew Road 
Merion Station, Pa. 19066 
(215) 664-2419 


CIRCLE NUMBER 66 
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a a a RR AS 


The vertical counter ranges from 0-23, and 
the horizontal, from 0-39. If the driver re- 
turns with a vertical value of 16 and a hori- 
zontal value of 20, this is the same spot on 
the screen as one defined by VTAB 17 and 
HTAB 21. 

The pen’s resolution is partly determined 
by the photo-detector. I have used photo- 
Darlingtons that can resolve one block of 
light in two. This means that an inverse 
block cannot be placed immediately adjacent 
on any side. The photo-Darlington can ade- 
quately resolve light blocks immediately 
diagonal to one another fairly well. Should 
you want to place a block on every line or 
column, the blocks must be placed diago- 
nally in zigzag fashion in order for the pen 
to discern them. 


APPLICATIONS 

Your imagination is the only limit to your 
applications of the Nibble Light Pen. For 
example, a typical instruction screen might 
have the prompt at the bottom: ‘‘Press 
<RETURN> to continue.’’ Instead of 
using an INPUT or GET statement to con- 
trol program flow at this point, place one 
inverse space on the screen labeled ‘*Touch 
pen here to continue.’’ Then call the light 
pen driver. The driver will not return to the 
calling program until it finds the block at 
which the pen is pointing. The result is 
effective program control without using the 
keyboard. 


Another obvious use is in menu selection. 
In any computer magazine you'll find plenty 
of advice on menu input, how to organize 
menu screens, and the error trapping that 
inevitably accompanies keyboard input. 
Using a light pen with a menu eliminates 
many of these problems. 

I have written a simple demonstration pro- 
gram to illustrate these two applications. 
Simply type in Listing 2, and save it on a 
disk that already contains the light pen driver 
(PEN.DRIVER, Listing 1) with the 
command: 


SAVE LIGHT.PEN.DEMO 


This demonstration program uses the light 
pen in the most simple and elementary ways; 
it’s just meant to get you started. Other 
applications could include graphics, data 
input, screen layout and games. It may also 
be an ideal input device for people with cer- 
tain handicaps, and it is flexible enough to 
be incorporated into just about any program 
or language. 


MODIFICATIONS 

Here are a few ideas for changes you can 
make. The routine can be changed to scan 
the screen for characters other than the in- 
verse block. It could also be adapted to scan 
for a range of characters, such as the entire 
inverse character set or just inverse num- 
bers. I have found the system sensitive 
enough to detect regular video characters, 


although the period and comma present 
some difficulty. 

You may find that from time to time the 
driver makes a mistake and returns with the 
coordinates of a block to which you are not 
pointing. In writing the driver I sacrificed 
a bit of accuracy in favor of speed. The por- 
tion of code that actually detects light from 
the pen, the DETECT subroutine, is the cul- 
prit. Specifically, lines 74 and 75 are coun- 
ters that form loops to check the pen for light 
2,048 times, each time the subroutine is 
called. Obviously, this takes a bit of time 
even at machine language speed, but the 
more times you check the pen for light, the 
more accurate your results will be. If you 
require more accuracy and are willing to 
forego execution speed, I suggest that you 
LDX with OA in line 74. If you’re assem- 
bling the driver at hex $302, this means that 
you store OA at location hex $35C. 

Resolution could perhaps be improved by 
changing the photo-Darlington, arranging a 
tube to narrow the area of light it responds 
to, or substituting another photo-detector 
such as a photo-diode or light-dependent 
resistor. Another idea is to use the low reso- 
lution graphics mode to scan for the pen. 
Theoretically, this should double the pen’s 
resolution. Also, there is no reason why 
another pushbutton input could not be used. 
Using PB2 would allow you to use the pad- 
dles or a joystick simultaneously with the 
light pen (this is not feasible on the //c). 


The real-time clock card for the Apple” features: 


* PRODOS/APPLEWORKS™ and DOS 3.3 compatible 
* 24 hour and 12 hour AM/PM formats 
* Time increments of | millisecond to 99 years 


* Automatically time and date stamps your files 


Powerful on-boar 
* High capacity LITHIUME® coincell batte 
‘ ar the date and time on Appl 
’ cig t BSR serial ports for future expansion 
* Full documentation included ina 

users manual 
* Includes more software on disk 
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d firmware in 4K EPROM 


™ Screen 


$99 


RAM 80e™ 


tions. New low price 


EXTEND-50™ 


CIRCLE NUMBER 67 


An advanced digital I/O interface 
card for the Apple™. Provides four 8- 
bit ports and two additional lines for 
handshake per port. Has interrupt 
arbitration circuit, interrupt routing 
switches, and more. Excellent choice 
for monitoring and control aries 


Micro Systems Research 
4099 Maxanne Drive Kennesaw, Georgia 30144 


* Extends the lle to 128K RAM 

* Adds 80 column video display 

* Enhances spreadsheet and word- 

processor eed | 
* Allows double high resolution 
raphics 

Easily installs in slot 3 of the Apple 
lle™. Comes with full enewa 


MICROPORT 32™ 


Reliably extends all 50 signals at inter- 
nal slots to.a 50 pin DIP. One side plugs 
into an a0 slot, the other plugs 
into any breadboard/protoboard. 
Now you can easily wire an interface 
card circuit without tedious wirewrap- 

ing or soldering techniques. A must 

‘or every designer. Only 


404/928-9394 


ROWARE 
SMARTMODEM 300 $129, HAYES MICROMODEM Ile with SMARTCOM- 1 Software $129 
1200-300 Baud External Modem.$229, = Serial Cable $20, CP/M 2-80 Card. $79 
64K 80 column Card Ile..$89, Video-7 RGB Ile Card.$119, Video-7 RGB I/F IlIc..$89 
64K 80 column Ile Display Enhancer Card with 2 outputs for Mono & RGB monitors$ 129 
512K Ramworks Ile.$199, IMb Ramworks...$299, RGB Module...$109 
Grappler C Graphic Parallel Printer I/F $89, GRAPPLER+Ile/I1+.$89, 64K Grappler$139 
Interface and Cable for connecting APPLE IIc to any Centronics type Parallel Printer. $69 
=> 32K Buffer for any Parallel Printer.$89, 128K.$99, 512K.$399 
Excelient Quality half ht. DRIVE for Apple II+,Ile,II¢(Specify).$129, Dual Drv$299 
KOALAPAD+$79,SYSTEM SAVER$59,Dual Voltage 220/110V Power Supply(Ile) $79 
SWITCHBOX (Parallel /Serial) A/B..$79: A/B/C/D..$99: X switch(2 CPUs-2 printers)...$99 
Cable for Mac or Apple IIc to Imagewriter-2 or -1 or Standalone Modem-Specify$20 Ea. 
6 OUTLET UL Listed Power Strip with Surge Suppressor & MCB and Indicating Light.$19 
256K MEMORY SET(8 CHIPS) for RAMWORKS or MULTIRAM Card 150 nano-seconds.....$29 
64K MEMORY SET(8 CHIPS) FOR PRINTER BUFFER CARDS, ETC 200 nano-seconde........... $8 
FOR IMAGEWRITER COMPATIBLE 180cps PROWRITER, CITIZEN, EPSON 
PRINTERS, & HIGH-RES TAXAN MONITORS, PLEASE CALL FOR LOW PRICES. 
RIBBONS FOR PRINTERS(CALL FOR OTHER RIBBONS): 
CARTRIDGE for IMAGEWRITER, NEC 8023, PROWRITER.$5 Ea. For Scribe.$7Ea. 
CARTRIDGE for EPSON MX-80/RX-80/FX-80/FX-85/CITIZEN 10 and LX-80/90.$5 Ea. 
CARTRIDGE for OKI-182/192..$8; SPOOL for OKIDATA-82 or 92, GEMINI 10X.$3Ea. 
Flip-N-File 15..$6, Flip File for 50 Diskettes.$ 11.95, Flip File For 100 Diskettes $19.95 


Box of 10 Disks.(5.25in.)..$9 SOFTWARE DiskNotcher(Use other Side).$5 
NEW Prodos version of PFS File, Write & Plan for Apple Ile,c Hard drive compat. $79ea. 
PFS File, Report, Write, Graph, Plan for Ile,IIc..$79ea, Magic Window 64K or 128K..$99 
APPLEWORKS e/c & Ile Keyboard Template.$229, Speller for Appleworks $99 
Quickfile Ile...$89: Superpilot with Log Ile..$189: LOGO for Apple Ile,IIc...$99 
Webster's New World Spelling Checker for Ile,IIc,II+ (Checks 110,000+words).......... $35 
ASC II Express Professional Ile/IIc (Prodos or DOS3.3)..$77, Softronic’s Softerm 11.$169 
Mousewrite Ile/c $99: Home Accountant Prodos Ile/c.$39: Flight Sim. Ile/c..$35 
New!! Managing Your Money by Andrew Tobias (for 128K Apple Ile/IIc).......... $119 
New FANTA VISION Ile,c(Create Your own Graphics with actions,Cartoons, etc).$39 
PRINTSHOP...$35: GRAPHICS DISK 1/11.$19 £e., Color PAPER(120)+Envelope(42)...$19 
PRINTSHOP COMPANION..CALL: DAZZLEDRAW 128K Ile/IIc.$45: SIDEWAYS....$35 
SCIENCE TOOLKIT Ile,IIc, 11+(Hardware & Software Master Module by Broderbund)....... $49 
NEWSROOM.$39: CLIPART for NEVSROOM$29: MATHBLASTER $35: ALGEBLASTER...$35 


WE ALSO CARRY EDUCATIONAL SOFTWARE FROM WELL KNOWN PUBLISHERS SUCH AS ARTSCI, 
COMPRESS, EARTHWARE, FOCUS MEDIA, GESSLER, INTELLECTUAL, J & S, K-12 MICROMEDIA, MECC, 
ROGER WAGNER, SCHOLASTIC, & SOUTHWESTERN. SCHOOL PURCHASE ORDERS/ENQUIRIES . WELCOME. 


WRITE US FOR A DETAILED PRICE LIST. AZ RESIDENTS, ADD SALES TAX. $3 shipping/$100. SPECIFY 


MACHINE TYPE => Ile, IIc, II+, or MAC. ALLOW 2 WEEKS for PERSONAL CHECKS. VISA/MC/AMEX OK. 
Note: Price(s) subject to availability and expire on 3/31/86. Adams II Ad : 12-85 Wibble Ad:1-86 


COMPUTERS PLUS COMPANY c= 


2303 H. 44TH ST.#1] PHOENIX AZ 85008 


rune PROWE (602) 955-1404 = 


LISTING 2: LIGHT.PEN.DEMO 


REM i i  e 

REM » LIGHT PEN DEMO 

REM » BY DAVID GAUGER II « 

REM « COPYRIGHT (C) 1986 = 

REM » BY MICROSPARC, INC « 

REM » CONCORD, MA 1742 « 

REM aoa ox: einiach wi wise bem pecans 

1098 REM we» INITIALIZE ««« 

118 GOSUB 199 

120 PRINT CHR$ (4);"BLOAD PEN.DRIVER" 

130 PEN = 770: REM LOCATION OF MACHINE LA 
NGUAGE DRIVER 

140 V = 768:H = 769: REM 


NOOB WNMHE 


VERTICAL (CO 


LUMN) AND HORIZONTAL (ROW) COORDI 
NATE LOCATIONS 
158 GOTO 219 
168 REM ««« SUBROUTINES «« x 
178 INVERSE PRINT " NORMAL RETURN : REM 
SUBROUTINE TO PRINT AN INVERSE SPACE 


(BLOCK) ON THE SCREEN 


188 PRINT " RETURN : REM SUBROUT INE 
TO PRINT A SPACE 

198 TEXT HOME RETURN 

200 REM «%%* MAIN PROGRAM « x x 


218 HOME HTAB 5: PRINT "“NIBBLE LIGHT PEN D 
EMONSTRATION": PRINT "« COPYRIGHT 1986 


BY MICROSPARC, INC. ««" 

228 VTAB 8 

230 PRINT "THIS PROGRAM IS MEANT TO DEMONSTR 
ATE" 

249 PRINT "ONE POSSIBLE USE FOR THE NIBBLE L 
IGHT" 

250 PRINT "PEN IN YOUR OWN PROGRAMS. " 

268 PRINT PRINT 

278 PRINT 

280 PRINT "PLEASE NOTE THAT THE PROGRAM IS N 
ow" 

298 PRINT "WAITING FOR YOU TO TOUCH THE INVE 
RSE" 


538 


END OF LISTING 2 


PRINT "SPACE WITH THE LIGHT PEN." 

VTAB 23: HTAB 5 

PRINT "TOUCH PEN HERE TO CONTINUE ==>"; 
GOSUB 178: REM PRINT INVERSE SPA 
CE 

CALL PEN: REM PROGRAM CONTROL PA 
SSED TO LIGHT PEN DRIVER WHICH RETUR 
NS ONLY WHEN IT FINDS PEN 

REM «« MENU SCREEN «x % 

GOSUB 198: HTAB 5: PRINT "NIBBLE LIGHT P 
EN DEMONSTRATION" 

VTAB 8: HTAB 12: GOSUB 178: GOSUB 188 
PRINT "CATALOG DISK" 


VTAB 11: HTAB 12: GOSUB 178: GOSUB 189 
PRINT "RING BELL" 

VTAB 14: HTAB 12: GOSUB 178: GOSUB 189 
PRINT "LIST PROGRAM" 

VTAB 17: HTAB 12: GOSUB 178: GOSUB 188 
PRINT "END" 

CALL PEN 


REM « LIGHT PEN DECODING « 

IF PEEK (V) = 7 THEN PRINT CHR$ (4);" 
CATALOG": FOR X = 1 TO 2888: NEXT X: GOTO 
369 

REM NOTE THAT THE DRIVER 
ONE LESS THAN 
SAME SPOT 
REM NOTE ALSO THAT WE DONT HAVE TO DEC 
ODE THE HORIZ. VALUE IN THIS CASE BECAU 


RETURNS (V) 
THE VTAB VALUE OF THE 


SE THE VERTICAL VALUE ALONE IS ENOUG 
H 

IF PEEK (V) = 18 THEN PRINT CHRS$ (7) + 
CHR$ (7) + CHR$ (7) + CHRS (7) + CHR$ 
(7);: GOTO 368: REM 5 BELLS 

IF PEEK (V) = 13 THEN HOME LIST HOME 


GOTO 368 
REM IF (V)=16 THEN THE PROGRAM WIL 
L FALL THROUGH TO THIS POINT 
END 


a 


BASIC IS FOR WIMPS! 


If you’re serious about programming, it’s time you moved up 
to pascal. BASIC is fine for beginners. But pascal is the lan- 
guage used by professionals. Here’s why .. . 
¢ pascal is compiled/BASIC isn't . . . pascal programs run 
30 times faster! 
* pascal is structured/BASIC isn’t .. . pascal programs 
are easier to write and debug. 
© pascal can get you ahead in school/BASIC can't . . . pas- 
cal is required by the College Entrance Exam Board for 
advanced placement in computer science. 
© pascal can get you a job/BASIC can't . . . professional 
software isn’t written in BASIC. 


PASCAL 


Don’t Waste Any More Time! 


kyan pascal is a full, ProDOS base d implementation of stan- 
dard pascal. It features a compiler which generates 6502 
machine code; built-in assembler which allows in-line or in- 
cluded assembly source code; and, a complete tutorial manual. 
kyan pascal runs on any Apple II with 64K of memory and 
a single disk drive. 


Try It Out Today! If not satisfied, return it within 15 days for a refund. 
kyan pascal for the Apple I/ 
(plus $4.50 shipping/$12.00 outside North America) 
(California residents add 6.5% sales tax) 
To Order Call: (415) 626-2080 
Send Check/ kyan software, Dept. J1 


Money Order to: 1850 Union Street, #183 
(Visa/MC Accepted) eo) 


San Francisco, CA 94123 
CIRCLE NUMBER 69 
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ICONIX is a graphics and animation editor for 
C O N | the APPLE II series of computers. @ It utilizes a 
unique toggleable magnification and panning 


movement to edit a hi-res image directly from 
the keyboard, and a lassoe technique to capture and compile icons from a 
section of a hi-res screen. Once you have an icon you can place it anywhere 
ona hi-res image, as many times as you want with the OVERLAY feature or 
you can save it to disk and use one or a combination of several relocatable 
machine code modules to manipulate the icons from your own program . 
voilla, animation! @ Allicons can be DRAWN, XDRAWN or FLOATED on the 
hi-res screen at incredible speed. The float feature allows you to move an 
icon over a hi-res screen without destroying the background, unlike draw or 
xdraw @ Also included is a text and lo-res graphics screen preparation editor 
called SCREDIT. The documentation is included on the disk with a printer 
dump routine 


@ DISK COMMANDER is a disk editing 
system for DOS 3.3 or DOS 3.3 w/Pronto- 
DOS Enhancement @ 4 Editors @ 13 Sub- 
editors @ Completely menu driven @ 1 or 2 
COMMANDER drive operations @ INSTRUCTORIALS and 
TECHNICAL INFORMATION on disk @ Sort 
catalog entries @ Create multiple heading catalogs @ Create multi-column 
catalogs @ Reassign lock ‘unlock and file type symbols, spaces. columns 
catalog heading and program titles to any combination of NORMAL, FLASH, 
INVERSE, LOWER CASE or CONTROL characters ® Rename all DOS 
commands @ Rewrite all DOS error messages @ Make a (non-VTOC 
dependent) disk map showing the TRACK’ SECTOR LISTS, VTOC and 
CATALOG TRACK’ SECTORS @ Trace out individual files @ Change the 
HELLO program @ Change any byte anywhere on a disk @ Make instructions, 
disk maps, track sector displays and traces using your printer, and more 


To Order: 
Send check or money order (U.S. Funds) for $29.95 ea. plus 
$2.00 Shipping ($5.00 foreign) Cal. Res. add 6%. 


SO WHAT SOFTWARE 
10221 Slater Ave. 
Suite 103 

Fountain Valley, CA 
92708 


SO WHAT 


c 1985 
WILLIAM STEPHENS 


SOFTWARE 


10221 Slater Ave.,Suite 103 Fountain Valley, CA 92708 


Who says 
e00d hae 


hasto be 
expensive! 


Now you can buy a full function 
spreadsheet for $49.95 or less. [AC calc.™ 

Written for your Apple,® I[ACcalc 
works with most 80-column boards and sup- 
ports RAM cards in multiple combinations 
up to 512K. Reads VisiCalc® models and 
stores data on hard disk. It also allows 
individual column widths for text or 
data entries. 

I[ACcalc has easy-to-use menu screens. 
No more blank stares from your monitor 
leaving you guessing which way to go. Just 
press the ESC key and pick the option num- 
ber you wish to use. That’s it. 

But the most important feature of 
all won’t be found on any of the menus. 

Our price. Only $49.95 retail. Or $39.95 
if you’re a member of the International 
Apple Core. 

Now, the best way to find out if [AC- 
calc is all we say it is—is to try it. That’s why 
we offer a 30 day money-back guarantee. 

Order your copy today and when you 
receive it, try it on your spreadsheet prob- 
lems for 30 days. Then if you decide not to 
keep it, return it and get all your money 


back. 


© 1985 International Apple Core 


This is just one example of the many 
benefits available through the International 
Apple Core, an organization that has served 
Apple users and user groups since 1979. We 
would be glad to send you full details about 
us—just ask. 

To order your copy of I[ACcalc, 
use your VISA or MasterCard and call 
(408) 727-7713. 

By mail, send check or money 
order to: International Apple Core, Prod- 
uct Dept #N-03, 908 George Street, 
Santa Clara, CA 95054. Payment made 
to International Apple Core must accom- 
pany order and must be in U.S. funds 
drawn on U.S. bank. Include $2.50 for 
shipping. Califor- 
nia residents add 
6.5% sales tax. 
Airmail outside 
U.S., Canada and 
Mexico add 
$11.00 shipping. 

Please allow 
2 to 3 weeks for 
delivery. 


IAC cale System Menu defines subsystems. 


7 /, INTERNATIONAL 
APPLE CORE™ 
.— ___d 


Apple is a registered trademark of Apple Computer, Inc VisiCale is a registered trademark of VisiCorp 
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Under ProDOS, I like for my STARTUP file to show the 

volume name. Therefore, my STARTUP programs usually 

® include a line like 10 PRINT ‘‘/MY.DISK/’’. Recently, 

I typed 10 /MY.DISK/ instead. When I booted the system, it ‘‘went 
South’’ (it died). What’s wrong with ProDOS? 


All software developers try to write perfect programs, but 
A they suffer occasional lapses. Such is the case with the 
® ProDOS developers at Apple Computer. In a running 
Applesoft program, the BASIC.SYSTEM file loaded in a normal 
boot situation has a problem. It always traps the first byte in an 
Applesoft program line by making the Applesoft ROM firmware 
think TRACE mode is in effect. Unfortunately, the system code 
assumes the first byte in a line is a variable or a token. 

In your case, the system went into an infinite loop trying to process 
the first byte in the line (the slash character). If you are really curi- 
ous, try various combinations on a disk you can afford to lose. For 
instance, 10 OR as the first line will make the system go dead with 
the ‘‘in use’’ light active on the drive. 

Fixing this bug would require a change in BASIC.SYSTEM that 
would only be valid for one particular version. Apple will probably 
fix it in a later release. But in the meantime, just be very careful 
when you key in an Applesoft program. 


Recently, I switched from DOS 3.3 to ProDOS. Having 

Q some knowledge of assembly language programming, my 

© normal assembly code for PRINT CHR$(4);‘‘string’’ sends 

$84 through COUT ($FDED) followed by the string. It doesn’t work 
under ProDOS. 


Obviously, ProDOS handles this situation differently from 
A DOS 3.3. Under ProDOS, don’t send the CHR$(4) pro- 

® cessing through COUT. Instead, place the string in the $200 
keyboard buffer terminated by a carriage return ($D). Then per- 
form JSR DOSCMD ($BE03). If the carry flag is returned clear, 
your ‘‘command’’ was executed successfully. If the carry flag is 
set, you have an error and the Accumulator contains the error code, 
such as $10 for a SYNTAX ERROR. 

This does not solve all your problems, though. Apple Computer 
sends technical notes to authorized developers when they release 
a new system. Their Technical Note 2 shows that CATALOG, 
CAT, PREFIX, CREATE, RENAME, DELETE, LOCK, UN- 
LOCK, VERIFY, SAVE, STORE, RESTORE, PR#, IN#, FRE, 


Apple expert Cecil Fretwell answers your tough questions on 
topics ranging from ProDOS and printing to the internals of 
the Apple. Send your questions to: Ask Nibble, 45 Winthrop 
St., Concord, MA 01742. We can’t promise to answer all of 
them, but we’re sure that you'll find a wealth of new informa- 
tion in the ones we publish! 


BYE, OPEN, CLOSE, FLUSH, POSITION, BRUN, BLOAD and 
BSAVE work correctly from machine language and return control 
to the calling routine. On the other hand, the hyphen (-), RUN, 
LOAD, CHAIN, READ, WRITE, APPEND and EXEC do not 
work correctly and/or do not return control to the calling routine. 
In most of these cases, there is no easy fix without modifying 
BASIC.SYSTEM. 


gram, then RUN it. Placing RUN followed by a carriage 

return ($8D) in the keyboard buffer at $200, then using 
DOSCMD ($BE03) produces some strange effects. Is there a 
solution? 


Q Under assembly language control, I want to LOAD a pro- 
& 


As explained in the answer to the previous question, RUN 
A is one of the commands that doesn’t work correctly. How- 
© ever, after limited testing, I would say there is a solution. 
You are on the right track but need some additional code. Issuing 
a RUN through DOSCMD places you in the running state. How- 
ever, at the end of DOSCMD the carry flag is set and the Accumu- 
lator contains the Applesoft SYNTAX ERROR code ($10). 
Don’t worry about the error code. After you use DOSCMD to 
execute the RUN, perform a JSR $D664. This initializes an Apple- 
soft program with regard to variable pointers, and then performs 
a JMP $D7D2 to start a new program. 


large chunk of memory for an assembly language subrou- 

tine, I can lower HIMEM by using the HIMEM statement 
in the program or storing the desired value in $73 and $74. I recently 
CONVERTed to ProDOS a program that had its HIMEM at location 
38208 ($9540). When I executed the program, it bombed. Why 
does the program work under DOS 3.3 but not ProDOS? 


Q Under DOS 3.3, when an Applesoft program requires a 
e 


You are violating a very important ProDOS rule. The 
A system always assumes that HIMEM points to a page 

® boundary, i.e., that $73 is always zero. Change HIMEM 
:38208 to HIMEM:38144 ($9500) to set things right. 

By the way, I don’t like to move HIMEM in this fashion because 
it assumes that the string storage area in memory is empty. If I want 
to tuck some code between string storage and the system code, I 
first load the code into a safe location in memory such as $2000 
and execute it. I load the Accumulator with the number of memory 
pages required, then issue a JSR GETBUFR ($BEFS). (Apple docu- 
ments this procedure in technical notes it releases to authorized 
developers). If the carry bit returns set, the system could not allocate 
the amount of memory requested. If the carry bit returns clear, string 
storage has been safely shifted down in memory and the Accumu- 
lator contains the beginning page of the allocated memory. I use 
this value to move the desired code from the $2000 area to the allo- 


. 


cated memory. @ 
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The Apple 


According 
to Mossberg 


Sandy Mossberg has been exploring, dissecting and demonstrating 
the machine language that lies beneath Applesoft and DOS for 
over three years. His Disassembly Lines column has educated 
and entertained thousands of fascinated Nibble readers. And now 
the first two years of his work are available in special book and 
disk packages. 


Disassembly Lines Volume 1 is a collection of the first eight 
installments of Sandy’s column. You'll learn how to use Applesoft 
machine language in your own programs; how to build an Apple- 
soft Line Editor; how Applesoft handles hex/dec data conver- 
sion, program listing and keyboard buffers; and how to make full 
use of the extended memory of your 64K Apple. 


D/L Volume 1 includes a disk full of demonstration programs 
that show the routines in action, plus an unpublished bonus: 
source files (in Big Mac/Merlin format) for each of the major 
tables in Applesoft and DOS 3.3! 


Disassembly Lines Volume 2 presents the next eleven installments 
of Disassembly Lines. Sandy delves deeply into DOS 3.3, divulg- 
ing base conversion routines, keyboard and video intercepts, and 
command parsing and processing. A complete discussion of the 
DOS 3.3 File Manager examines each of the DOS commands 
in fine detail. 


D/L Volume 2 comes complete with a disk containing all dis- 
assemblies and demonstration programs. 


Order today from Nibble! 


Send me Disassembly Lines! 
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FIRST 
TOTALLY 
PORTABLE 
//c* 


Take it 
with you 
everywhere! 


Features: 


¢ 24 Line by 80 

Character LCD Display 

¢ 8 Hour rechargeable 
power supply 

¢ 20 Ib. total system 
weight including your //c 

¢ Durable cordura carrying 
case with handle and 
shoulder strap 


C-VUE Flat Panel Display $475.00 
PRAIRIE POWER battery & case 190.00 


TOTAL if purchased separately $665.00 
if purchased together SAVE 70.00 


PORTABLE SYSTEM PRICE 
TOTAL $595.00 


CO Volume 1 - $29.95 Postpaid CO MasterCard 
OC Volume 2 - $29.95 Postpaid O Visa For more details and 
O Save! Both volumes for only CZ Check/M.O. ordering information call 


$50.00 Postpaid 
Payable in U.S. funds only. 


(Mass. residents 
add 5% sales tax) 


1-800-GET-CVUE (outside 
California) or (619) 274-1253 (inside California). 


Name Tel. # MasterCard and VISA accepted. Prices 
subject to change without notice. 

Address 
‘ : : ROGER COATS 
ity tate i 

: P.O. Box 171466 
Signature Date San Diego, CA 92117 
Charge Card ? Exp. Date *Apple //c not included 


Apple //c is a registered trade mark of Apple 
Computer Inc. 
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nibble 45 Winthrop St., Concord, MA 01742 (617) 371-1660 
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LOCKSMITH 6.0 is a new version of 
the powerful bit-copy program that also re- 
covers crashed disks, restores deleted files 
and performs hardware diagnostics. Com- 
patible with Apple // series computers, it in- 
cludes a framing-bit analyzer, an automatic 
boot tracer, a sector editor and a disk with 
procedures to copy hundreds of Apple pro- 
grams. The price is $79.95. Contact: Alpha 
Logic Business Systems, 4119 North Union 
Rd., Woodstock, IL 60098, (815) 568- 
5166. 
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GUITAR MASTER is a self-paced tu- 
torial program that demonstrates almost 400 
chords, 375 progressions, 18 picking and 
strumming patterns and all the major scales 
for the guitar. It includes a program for tun- 
ing and a guide to transposing. GUITAR 
MASTER is designed for ages 10 to adult 
and requires a Mockingboard and an Apple 
II, II Plus or //e. Its price is $49.95. Con- 
tact: MasterSoft, P.O. Box 1027, Bend, 
OR 97709, (503) 388-7654. 
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VOTALKER AP’s board and software 
translators enable your computer to speak 
in an unlimited vocabulary with 32 inflec- 
tions, to sing in five octaves with over 4,000 
pitch settings and to generate sound effects. 
It has two preprogrammed voice modes that 
can be varied by an on-board filter. It works 
with the Apple II, II Plus and //e and costs 
$179. Contact: Votrax, Inc., 1394 Rankin 
Rd., Troy, MI 48083, (313) 588-2050. 
CIRCLE NUMBER 122 


BEACH-HEAD and BEACH-HEAD 
II are strategy/action games for the Apple 
// series. They feature graphics, animation, 
sound effects, and multiple scrolling play 
screens. High scores can be saved and to 
help you get them, demonstration modes let 
you practice on various phases of the games. 
Both programs require a joystick and are 
$34.95 each. Contact: Access Software, 
2561 South 1560 West, Woods Cross, UT 
84087, (801) 298-9077. 
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PROFILER 2.1 is an easy-to-use ad- 
vanced file management system that lets you 
file, sort, calculate and print data, and allows 
you to design custom formats quickly. Eight 
times faster than the DOS 3.3 version, this 
ProDOS version stores up to 1,500 records 
on 5 1/4 inch disks and up to 65,000 records 
on hard disk systems. It runs on any Apple 
// series computer with 64K and is priced 
at $89.95. Contact: PM Software, 19731 
Providence Lane, Huntington Beach, CA 
92646, (714) 963-2221. 
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GARRY KITCHEN’S GAMEMAKER: 
THE COMPUTER GAME DESIGN KIT 
lets you create games using five powerful 
tools: SpriteMaker, SceneMaker, Sound- 
Maker, MusicMaker and the Editor. A joy- 
stick is used to select menu commands to 
create and animate characters, draw back- 
grounds, create sound effects and compose 
musical scores to incorporate in the games. 
Games can be saved and played indepen- 
dently of the master program. The program 
runs on Apple // series computers and is 
priced at $49.95. Contact: Activision, Inc., 
2350 Bayshore Frontage Rd., Mountain 
View, CA 94043, (415) 960-0410. 
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SERIAL GRAPPLER+ is a printer 
interface card featuring built-in screen print 
commands to allow Hi-Res or double Hi-Res 
graphics or text to be printed with a few key- 
strokes. It allows you to print graphics in 
inverse, rotated, enlarged or in emphasized 
mode. SERIAL GRAPPLER + is compat- 
ible with Imagewriters I and II, and the 
Scribe. The price is $119. An optional 
buffer, Bufferpack, is available with 16K, 
32K or 64K. Contact: Orange Micro, 1400 
N. Lakeview Ave., Anaheim, CA 92807, 
(714) 779-2772. 
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TAXPAK-86 is a menu-driven program 
for preparation of the 1985 form 1040 and 
Schedules A, B, C, D, G, SE and W. As 
each entry is made, all affected lines are up- 
dated and information is transferred from 
form to form. It always displays your cur- 
rent tax liability as well as the impact of the 
most recently entered transaction, so you can 
explore alternative tax strategies. It runs on 
Apple // series computers with 64K. The 
price is $39.95. Contact: AHWARE, 805 
Luz Court, Danville, CA 94526, (415) 
837-7346. 

CIRCLE NUMBER 127 


P.A.C.K. (Programmer’s Assembly- 
Language Construction Kit) explains how to 
create, use and update subroutine libraries. 
It provides relocatable subroutines plus Edi- 
tor, Assembler and Linking Loader utilities 
that you can combine into your own pro- 
grams. P.A.C.K. is written in machine lan- 
guage for the Apple // series. Its price is 
$49.95 plus $3.00 shipping; specify DOS 
3.3 or ProDOS. Contact: Interactive Arts, 
2715 Porter St., Soquel, CA 95073, (408) 
475-7047. 
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FANTAVISION is a special effects and 
animation generator for Apple // series com- 
puters with 64K. It uses techniques called 
‘*tweening’’ — creating smooth motion by 
generating 64 intermediate positions 
between objects, and ‘‘transformation’’ — 
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creating sequences in which an object in one 
frame is transformed into something else in 
the next. Your cartoons or movies can be 
saved on a self-booting disk. FANTAVI- 
SION is $49.95. Contact: Broderbund Soft- 
ware, 17 Paul Dr., San Raphael, CA 
94903, (415) 479-1170. 
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THE INVOICER does batch or real- 
time processing, optional or automatic sales 
tax calculations, line extensions and total- 
ing, invoice numbering, audit controls, and 
daily sales reporting with subtotals. It tracks 
taxable and nontaxable sales, has user- 
defined smart keys and allows access of 
account and stock number databases while 
invoicing. It runs on a 64K Apple II Plus, 
//e or //c and is priced at $69.95. Contact: 
MiccaSoft, 406 Windsor Lane, New 
Braunfels, TX 78130, (512) 629-4341. 
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BATTLE OF ANTIETAM, NORWAY 
1985, and U.S.A.A.F. are strategy games. 
BATTLE OF ANTIETAM recreates the 
1862 Civil War battle. NORWAY 1985 is 
an advanced-level game about the Soviet 
occupation of Norway and NATO’s counter- 
attack. U.S.A.A.F. (United States Army Air 


Force) is a simulation of daylight bombing 
of German industry from 1943-1945. The 
programs are all one- or two-player games 
and run on the Apple // series. Their prices 
are $49.95, $34.95 and $59.95, respec- 
tively. Contact: Strategic Simulations, Inc., 
883 Stierlin Rd., Bldg. A-200, Mountain 
View, CA 94043, (415) 964-1353. 
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STICK YBEAR PRINTER is a graphic 
design and print program that makes it easy 
for children to create cards, stationery, 
posters, full-screen and half-screen pictures, 
and banners. Dozens of background and 
border patterns, hundreds of decorations and 
10 fonts are included. It runs on the Apple 
// series and works with the Imagewriter II 
and Scribe, in addition to most dot matrix 
printers. It is priced at $39.95. Contact: 
Optimum Resource, Inc., Station Place, 
Norfolk, CT 06058 (203) 542-5553. 
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STAND UPS raise and tilt your printer 
for easy viewing of what’s being printed and 
to provide space to store paper below the 
printer. Made of metal, STAND UPS have 
molded plastic feet that protect your printer 
and desktop. They are available in black and 


white. The price is $18.95 on direct orders. 
Contact: Computer Cover Company, P.O. 
Box 3080, Laguna Hills, CA 92654 (714) 
380-0085. 
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Powerful. Flexible. Simple. 
And $30.00. 


The AppleWorks Mailing Program for 
automated form letters. Now you can merge 
your AppleWorks database records with any 
master letter or document created with the 
AppleWorks Word Processor Your printouts 
look just as though they came directly from 
AppleWorks. And you can print right to your 
own letterhead or continuous feed paper 

Merge as many records as you have 
in your database. Customize your greeting 
line. Insert specific information within 
the body of your letters. Your program will 
even close up lines if some records don’t 
have a specified entry. 


AppleWorks Mailing Program was created by Apple Computer Inc. and is distributed exclusively through the International Apple Core Inc. 
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There is full documentation on the 
program disk and step-by-step instructions 
in easy AppleWorks style screens. You can 
even modify or customize this program to 
your specific needs. All this for only $30.00. 
(IAC members price, $25.00. $22.00 for 
user groups ordering in minimum quantities 
of five.) 

So call or write today. COD orders: (408) 
727-7713. Orders by check or money order. (Sorry, no 
VISA or MasterCard): International Apple Core, 
Product Dept #N-02, 908 George Street, Santa Clara, 
CA 95054. 


Up rar 


© 1988 International Apple Core Inc. 
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PROFESSOR HALLEY’S COMET 
PURSUIT indicates the elevation and direc- 
tion of Halley’s comet at any time from any 
place on earth, making it easier for you to 
track it in the sky. Using both text and 
graphics, the program shows the correct 
azimuth and altitude. Background stars are 
plotted relative to the comet’s position. The 
program includes a trivia game with over 
500 questions on topics including solar 
science, comets, Edmond Halley and astron- 
omy terminology. It runs on the Apple // 
series and is priced at $39.95. Contact: 
Olympus Educational Software, 1660 


Hotel Circle N., Suite 310, San Diego, CA 
92108, (619) 296-8475. 
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Now THAT YOU KNOW ASSEMBLY 
LANGUAGE: WHAT YOU CAN DO 
WITH IT? is a book for people with some 
knowledge of 6502 assembly language. It 
explains how to develop a library of subrou- 
tines, how to access the 6502 stack, and how 
to minimize your coding by using the Apple’s 
built-in routines. It is priced at $19.95. A 
disk containing the source code and one con- 


Tired of Trolls? Weary of Wizards? 


Real Life 


The Greatest Adventure of All 


Directly across the street, eastward, is an alley. 
The way out - behind you - is called Death. 


Here, you see: 


It is Monday. 
You are wearing filthy rags. 


What would you like to do? 


MEANINGFUL 
Real-life situations, 
real-life decisions - 
real-life consequences. & 


You are in the middle of a very busy street called Life. 


Up and down the street are various buildings and shops. 


An empty beer bottle with most of the label missing. 


COMPLETE 
Maps are included, 
and clues are as close 
as the keyboard. 


EASY TO PLAY 


Dynamic menus 
Iet you know what you 
can and cannot do. 


Real Life is not just another fantasy, not just another game. 
It is that most fantastic of all games, the game of life. Real Life. 
It is an opportunity to find out what awails you at the end of your life. 


An interactive novel from Relational Systems Corporation. 
For Apple //c and 80-column Apple //e. Also available for the 512k Macintosh. 


$29.95. We pay shipping & handling. Visa, MasterCard and personal checks welcome. COD orders add $2.00. 


To order, call (313) 645-5090. Or write us at: 22809 Shagbark, Birmingham, Michigan 48010 


Due to the delicate nature of some Real Life issues, this product is not recommended for children under 13 
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taining the object code for the book’s pro- 
grams are $15 each. Contact: Relig 
Systems, Inc., 2068 79th St., Brooklyn, 
NY 11214, (718) 232-8429. 
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BUSINESSCARD includes two serial 
interfaces and a clock/calendar with battery 
backup. It allows you to print text, and 
black-and-white or color graphics. It has 
over 60 built-in commands for clock, 
modem, and printing applications. It can 
drive a serial printer (including the Image- 
writer II), and operate a 300 or 1,200 baud 
modem. It works with an Apple II Plus or 
//e. //e users are able to access commands 
from pull-down menus. The price is $219.95 
(includes printer cable). Contact: Street 
Electronics, 1140 Mark Ave., Carpinteria, 
CA 93013, (805) 684-4593. 
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APPLEWORKS — THE PROGRAM 
FOR THE REST OF US answers the most 
commonly-asked questions about how to use 
the AppleWorks program. Written by 
Michael Sloan, who provides technical sup- 
port for Apple Computer, Inc., the book 
guides you through all the major commands 
and options for the word processing, data- 
base and spreadsheet applications. It ex- 
plains how to use AppleWorks with other 
programs and includes dozens of screen dis- 
plays and examples. Contact: Scott, Fores- 
man and Company, 1900 E. Lake Ave., 
Glenview, IL 60025, (312) 729-3000. 
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PROGRAMMERS: New DAVID-DOS II" 


HIGH-SPEED DOS 3.3 
DOS-MOVER/FAST-GARBAGE 


MM high-speed disk access under all 
conditions. DOS-mover frees 10,000 bytes 
of extra memory for programs. FRE command 
does ultra-fast garbage collection. Clock or 
manual disk dating. May be licensed. 
100 Sectors in 7 Seconds 
Speed Load/Save Applesoft, Binary & Integer 
100 sector programs in 7 seconds. Tload/Tsave 
Random & Sequential Text Files at same speed. 
Speeds up programs like Home Accountant. 
10K More Memory 
Use HIDOS command in hello program for 
turnkey startup, adding 10K free memory to 
run 30% larger Applesoft programs than Pro- 
DOS. Moves DAVID-DOS II and 4 buffers 
above main memory. 
Ultra-Fast Garbage 
New FRE command collects a memory full of 
6000 strings that are half garbage in two seconds. 
DOS 3.3 takes 12 minutes. FRE is so fast it is 
not noticeable during run of most programs. 
Clock Dating 
Automatic date stamping of disk files is set up 
for 6 kinds of clocks or Hello manual date entry. 
New DATE command will auto-insert date in 
correspondence. 


Warning: EDD is 
sold for the sole 
purpose of 
making archival 
copies ONLY. 


All times in seconds. DAVID ProDOS 
(Time Test programs available) 00S-1! 


TEXTFILES (100 Sectors) TSAVE 
TLOAD 
WRITE 

READ 

PRINT/READ 

APPEND 


(791 Strings, 
32 chars ea) 


(442 Sectors, 7 x 500) 
APPLESOFT (100 Sectors) 


INTEGER (100 Sectors) 


BINARY (100 Sectors) 


48K PROGRAM SPACE 
(With 3 Buts avail) 


APPLESOFT 
INTEGER 
BINARY 


36,352 
36,352 No 
36,352 34.816 


64K PROGRAM SPACE APPLESOFT | 46,592 | 32,256 35,756 
(With 4 Buts avail) INTEGER | 46,592 NO 35,756 
BINARY 46,592 | 41,728 35,756 


“Add 5 seconds for Verity. Apple I, Applesoft & ProDOS are trademarks of Apple 
Ten New DOS Commands 
1. HIDOS moves DOS above 48K memory. 
2. FRE makes ultra-fast garbage collection. 
3. DATE stamp files. Clock or manual dating. 
4. TLOAD speed loads all Text Files to mem. 
5. TSAVE speed saves Text Files from memory. 
6. TLIST lists all Text Files to screen/printer. 
7. DUMP Binary/Ascii to screen or printer. 
8. DISA disassembles Binary to screen/printer. 
9. AL prints program Address & Length. 
10. / is a one keystroke Catalog. 


DAVID DATA ) 
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Identical Operation 
All new commands operate identical to old DOS 
commands on the keyboard & in programs. 
Install in Three Seconds 
Install DAVID-DOS [II on your full disks in 
three seconds without touching the programs. 
Create bootable high-speed new disks with a 
Basic, Binary, or Exec Hello & 35/40 tracks. 
Create Data-Disks with 30 extra sectors. 
Variable Speed Scrolling 
Key operated variable speed scrolling for TLIST, 
DUMP and DISA. Lower-case accepted on all 
commands. Catalog shows Free-Space. Auto- 
matic support of Integer or Applesoft Card in 
any slot, while in HIDOS or LODOS. Vendor 
license includes protection system. 
Compatible 
All DOS entry addresses have been preserved. 
DOS is same length and compatible with most 
software. David-Dos is fully copyable. Init areas 
were used for David-Dos. Works with all Apple 
Ils including Ile, IIc, Franklin & Basis with 
48K/64K/128K & Corvus & Xebec Hard Disks. 
Complete documentation and many utilities are 
on the disk. 


Add $2.00 Shipping. Overseas 
add U.S. $4.00. Calif. add 6%. $39.95 


To Order. Send Check or Phone Visa/MasterCard. 


12021 WILSHIRE BLVD., SUITE 212B 
LOS ANGELES, CA 90025 (213) 478-7865 


NOW 
AVAILABLE 
AT YOUR LOCAL 
COMPUTER STORE 


YOUR DISKS 


ESSENTIAL DATA DUPLICATOR Il” 


EDD runs on Apple Il, I! plus. Ile, lic and Apple II! (in emulation mode) using one or two disk drives. 


EDD allows you to easily and quickly make back up copies of your 
“uncopyable” Apple disks. H Since EDD has been preset to copy 
the widest range of copy-protections possible, you just simply 
boot up EDD, put the disk you want to copy in one disk drive and 
a blank disk in the other (EDD will work using one drive also) 
and in about 2 /2 minutes a copy is made. @ Unlike the “copy- 
cards” which only copy “single load” programs, EDD copies 
the entire disk. This would be similar to hooking up two 
cassette recorders, playing from one, and recording to the 
other. @ We have even included an option so you can check 
the speed of your disk drives because drive speeds running 
fast or slow can damage disks and cause other problems. 
@ We publish EDD program lists (information about 
copy-protected disks) every couple of months, which 
EDD owners can receive. The current list is included 
with the purchase of EDD. @ The bottom line is this; if 

EDD can't copy it, chances are nothing will. 


$799 


Ask for EDD at your local computer store, or 
to order direct: send $79.95 plus $2 shipping 
($5 foreign). Mastercard/Visa accepted 
Prepayment required. 


UTILICO MICROWARE 
3377 Solano Ave., Suite #352 
Napa, CA 94558 (707) 257-2420 
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THE INFORMATION CONNEC- 
TION combines an easy-to-use communi- 
cations program, a text editor, and a tutorial 
featuring a simulated on-line session. It sup- 
ports any modem that can be controlled with 
ASCII commands and allows you to send 
electronic mail or access networks. An on- 
screen clock displays elapsed time, and the 
program has an adjustable alarm and auto- 
matic shut-off to limit telecommunication 
costs. It works with 64K Apple // series 
computers and is priced at $59.95. Contact: 
Grolier Electronic Publishing, Inc., 95 
Madison Ave., New York, NY 10016, 
(212) 696-9750. 
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CONCEPTOR is a challenging game- 
like program that helps players learn how 
to recognize, understand and classify infor- 
mation, and formulate concepts. From a set 
of 20 figures, players must choose 10 figures 
with similar characteristics. CONCEPTOR 
features colorful graphics, three levels of 
difficulty and 120 separate puzzles. It runs 
on Apple // series computers with 64K and 
is priced at $49.95. Contact: Mentor Learn- 
ing Systems, Inc., 1825 De La Cruz Blvd., 
Santa Clara, CA 95050, (408) 988-4114. 
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Available for your: 
Apple II, 11+, Ile, IIc 


Color TV or Monitor Recommended 


tor ONY $29.95 


+ postage and handling 


Be the TRAIN 


send to: 

Signal Computer Consuttants 
P.O. Box 18222, Dept. 30, 
Pittsburgh, PA 15236 
(412) 655-7727 


Play this fast-paced com- 
puter video game that’s so 
true-to-life that a major rail- 
road indicated they use it 
in dispatcher training. 


TRAIN DISPATCHER's 24 
displays help you make cru- 
cial decisions, RAPIDLY. 
You're under pressure, but 
in control — throwing switches, clearing and cancelling signals, 
constantly maneuvering both east and westbound trains. Keep 
the tracks clear ahead of all your trains and watch your score 
go up! 

Action packed, yet non-violent, TRAIN DISPATCHER’s 5 
levels of play challenge players from age 8 to 80. Work your 
way up from “Cub Dispatcher” to ‘Chief Dispatcher’ or even 
“Trainmaster.” 

Created by designers of computerized traffic control systems 
for operating railroads, TRAIN DISPATCHER will increase your 
appreciation for actual railroad operations. 


TRAIN DISPATCHER comes complete with Instruction Manual 
and keyboard template. 


USA & Canada add $2.50 postage and handling ($4.00 foreign) for each game ordered. All 
checks or money orders must be in U.S.A. funds, all foreign payments must be against U.S.A. 
banks. PA residents add 6% state sales tax. Visa, Mastercard also accepted, show card number 
expiration date and signature. 
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Keyboard with the 


REPEATERRRR’ Ge- 


UP 
WORD PROCESSING 
PROGRAM EDITING 

VISICALC 


Auto Repeat: repeats any keypress. 
On-Off Adjustable Delay: to match your typing touch. 


High-Speed Cursor: Makes REPT key a speed control 
to double the repeat rate of any keypress. 


Shift-Key Modification: Get standard upper-lower case 
shifting. Supported by most popular word processors and many 
other programs. Leaves game I/O open. 

Easy Installation: Fits Rev 7 or later and works with 

most 80 column boards. No soldering. 

REPEATERRRR™ without SHIFT-Key Modification ® 3 7 


REPEATERRRR#™ with SHIFT-Key Modification ®47 °° 

TO ORDER: 

Call or write H.O.M.E. or ask your local dealer. Add $2 per order ship- 
ping/handling ($5 foreign). Ohio orders add 6.5% sales tax. Prepay 
with check, Master Card, VISA (include card number and expiration 
date). 30-day trial - full refund if not satisfied. One year warranty. 


HOME 


HiGH ORDER MICROELECTRONICS CORR 
17 River Street, Chagrin Falls, Ohio 44022 (216) 247-3110 


Trademarks: Apple/Apple Computer, Inc. VisiCalc/VisiCorp. 
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continued from page 9 


6. Enter the path name (prefix/filename) 
for each file to be converted. Do this one 
file at a time. Any file name that con- 
tained a space under DOS 3.3 has been 
changed; all spaces are converted to 
periods under ProDOS. The file should 
then load into memory as an Appleworks 
WP file. 

7. Save the file to disk using a new file 
name. 


Now, if you made no mistakes, you have 
converted a text file for AppleWorks word 
processing. You will have to change any em- 
bedded control characters for the printer, 
and you will need to reformat the document. 
Otherwise, you're all set. 

One final note: Unfortunately, Apple 
Computer does not provide access to Apple- 
Works for early models of the Apple //. You 
must own an Apple //c or Apple //e with 
an extended 80-column card to take advan- 
tage of AppleWorks’ features. However, an 
independent software developer, Norwich 
Data Services, Ltd., now provides a recon- 
figuration of AppleWorks for Apple II Plus 
owners (called Plus-Works), making it pos- 
sible to run AppleWorks on a 64K, 80- 
column Apple II Plus. 


Larry Solomon 
Tucson, AZ 


Higher FID 
I enjoyed Donald Miller’s article on mov- 


ing FID to the RAM card (‘Vigilant FID,”’ 
Vol. 6/No. 6). However, I don’t like run- 
ning a loader program to install it. Chang- 
ing the following lines in FID.CONVERTER 
will result in a version of FID.RC that can 
be BRUN and will install itself on the RAM 
card. 

Line 30 prints a count on the screen (I 
didn’t like the way the program appeared 
to hang as it did its stuff). Line 220 calls 
the new subroutine and then saves FID.RC 
to disk. Line 550 is a subroutine that POKEs 
the machine code into memory just before 
the image of FID. Lines 560-610 are the data 
for the machine code. 


38 M=M + 1: VTAB 14: HTAB 
18: PRINT M:F = @: IF 
M > 8983 THEN 148 

228 GOSUB 558: PRINT CHR$ 
(4) "BSAVE FID.RC,A$17 
6A.L4854" 


588 


598 


688 


6168 


DATA @,185,3,24,153,3 
. 288 288 , 208 , 247, 238. 
169,23 ,238,172,23,173 
.172,.23, 201,227, 288,2 
34,32,47,251,32,88,25 
2,168 

DATA 8,185 ,229,23,248 
.6,153,8,4, 288,288 ,24 
5,76,208,3,32,57,251, 
173,131,192,173,131,1 
92,32,3,208,173,129,1 
92 

DATA 76,211,3,.213,211 
,197,168,167,198,281, 
196,167, 168,198,218,2 
87,205,168, 208,210,208 
7,285, 208 ,212,168,212 
. 207 168,218,213 

DATA 286,174,8 


Kevin Sartorelli 
New Zealand 


Cleaner Heads 


558 


568 


5768 


FOR I = 5994 TO 6146: 


READ N: POKE I,N: NEXT 


: RETURN : 
N RELOCATOR 
DATA 141,129,192.141 
.129,192,169,8,133,60 
.133,66,168,169,255.1 
33 62.133 ,63,169,248, 
133,67 ,133,.61,32,44,2 
54,168,18 

DATA 185,218,23,153,1 
57.165.136, 208,247.16 
9,.78,.141.241,168.169, 
73.141,242.168.169,19 
6.141,243,168.169,64, 
141,239, 168,168 


REM POKE I 


I have very much enjoyed your magazine 
ever since I started reading it about two 
years ago. Since then I have heard of people 
having trouble cleaning the disk drive heads 
on drive two. I have the solution. These 
POKEs turn on the drives (in slot 6), but 
they don't read or write on the disks: 


POKE 49385 ,0 
POKE 49384,0 
POKE 49386,0 
POKE 49387,0 


Turns drive on 
Turns drive off 
Selects D1 
Selects D2 
James Faircloth 
New Orleans, LA 


copy program 


FORGET ABOUT PARAMETERS. 


Get right down to backing up your Appie |! soft- 
ware with the advanced, easy-to-use Echo Plus™ 

Now you can copy almost all, even the best 
protected disks without bothering with up to 500 
parameters as with ordinary copy programs. What's 
more, Echo boots up in under 4 seconds, copies 
most disks in under 2 minutes. 

For the toughest disks, you just switch to the 
exclusive automatic disk copier. It selects the right 
tracks, reads in and analyzes each, adjusts param- 
eters, then copies each track, all automatically. 

Echo Plus gives humans a break with an easy-to- 
read screen format, cursor-controlled menus and 
real command flexibility. Plus a 42 page compre- 
hensive-and comprehensible-manual that even 
details several copy protection schemes. 

You aiso get drive speed in RPMs, drive alignment, 
cernify and erase features, and a sophisticated 
track editor. 

If you can find a more powerful, easier to use 
program at a better price, buy it. If not, send us your 
check or money-order now. Only $59.95 plus $5.00 
shipping and handling (In Massachusetts, add 
$3.00 sales tax.) 

For the Apple IL Il+, lle, or llc with at least 48K 
RAM and one disk drive (DOS 3.3). 


AGRANAT SYSTEMS 
e 40 Winthrop Circle, Weston, MA 02193 
Dealer inquiries invited. 
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Thanks 
TimeTamer 


For setting me 
free to spend a 
little more time 


Now Enjoy getting 


Organized with a 


Time Management 
System for the family, 
the professional, and 


the student. 


TIME TAMER CAPABILITIES 


1. Calendar/Schedule 

2. Reminders 

3. To Do/To Get Lists 

4. Separate/Unlimited 
History 


5. Note Pad 
6. Printer Reports 
7. Makes Own 
Back Up Copies 
8. Priorities & Goal Planning 


“TIME TAMER” by ORDER HOUSE 88 


Send $49.95 to ORDER HOUSE 88 
13931 Central Expwy © Suite 318-C 
Dallas, Texas 75243 

Allow 4 to 6 weeks delivery 


Requires 64K, 2 Disk Drives, il+, lle. tlc 


CIRCLE NUMBER 76 


AT LAST — 


A handbook that contains the Programming 
Codes for 100’s of popular printers. 


Announcing: 
PROGRAMMERS’ HANDBOOK OF 
COMPUTER PRINTER COMMANDS 


The handbook gives you: 
© Codes for printers made by over 40 Printer 
Manufacturers. 
Easy to use spiral bound book of over 250 pages 
of Programming Codes written in table form. 
Codes arranged by Written Code, Hex and Decimal 
equivalent, and with a brief description of what 
each code does. 
Codes for either Daisy-Wheel or Dot Matrix Printers 
(models through 1984). 
ONLY $37.95 + $2 shpg./hdlg. ppd. 
with a two week approval guarantee. IF NOT 
SATISFIED, return in original carton for refund of 
book price only. 
FOR MORE INFORMATION OR TO ORDER 
CALL OR WRITE: 


° ° 


INCORPORATED 
(812) 876-7811 (9-5 EST) 
P.O. BOX 596, ELLETTSVILLE, IN 47429 
We accept MC, VISA, MO—same day shpg. 
COD—$2 extra. CKs—Allow extra 14 days. 
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BULK BULK DISKETTES 


NASHUA 


iis: 


5%" DS/DD with hub ring and Tyvek sleeve, bulk 
packaged, no labels, factory warranteed. Shipping 
extra. For quantity 50, add 10¢ each. 


Get the same low price our high-volume 
duplication customers get! 


CALL TOLL FREE 
1-800-321-4668 
in Colorado, 303-234-0871 
VISA, MASTERCARD, OR COD ACCEPTED 


1315-F Nelson St. 
Denver, CO 80215 


MOTEL 


SOFTWARE 


(Easy To Use) 
FOR Ile & IIc 


MOTEL LEDGER ........ $150 
(Daily Guest Log & 
Cash Controller) 


Invoicer .............. $150 
Payroll ................ $100 
Labeler ............... § 75 
Acct. Receivable ...... $ 75 
UP TO 60 ROOMS 
VISA or MC 
CHILDSOFT 


ROUTE 3 BOX 821 
GAYLORD, MICHIGAN 49735 
PH. 517/732-5133 
8 A.M. -11 P.M. 7 DAYS A WEEK 
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ADAPT-A-DISC 
$19.95 


--the coupler that enables 
you to use any disk drive 
compatible with the Apple 
Il+ or Ile as an EXTERNAL 
disk drive for the llc. 


ADD-A-PAD 
$39.95 


--give your Apple Ile all the 
speed and convenience of a 
10-key adding machine... 

LIMITED QUANTITY CLOSE-OUT 


Computer Accents, Inc. 
P.o. Box 5905 
Kingwood, Texas 77325 


MASTERCARD/VISA 713-664-9727 
CIRCLE NUMBER 79 


Nibble 

at 

Your 

Door 

Have Nibble delivered 


to your home and save 
31% off the cover 
price! See the subscrip- 
tion ad on page 4 for 
more information. 


Organize your Disk 
Library with — 


D LO DISK LABEL 
ORGANIZER 


Check these features: 
Automatic Labeling 
©Catalog Entries Sorted 
Easy-to-use - Menu Driven 
Fast Machine Language Routines 
¢Disk Numbering, Vol.#, & Free Space 


© Optional Manual Labels 

*Easy-to-follow User Guide 

Supplied with 300, 5” Labels 
Requirements 

All Apple II" series and compatibles 

DOS 3.3 or ProDOS, Disk and Printer 


ae Plus $2.50 for postage & 
handling, New York 
residents add sales tax 


ONLY 72 


Send CHECK or MONEY ORDER to- 


ISLE-SOFT 


2497 West River Rd., Grand Island, N.Y. 14072 
* Apple Ilis a trademark of Apple Computer Inc 
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PLOTTERFACE!!! 


Interfaces the most economical 4 color 
printer/plotter on the market to your APPLE Il. Il+ or 
Ilett! 

Plus extends the game !/O a full 36° with a zero 
insertion-force socket to protect your 16-pin game 
plugs!!! 

Disk includes machine lang driver and Applesoft 
demonstration programs including 3-D Graphics. Bar 
Chart. Biorhythm and more!!! Works with both Ap- 
plesoft and Integer basics All software fully copyable 
includes complete documentation Spectacular color 
graphics capability One year warranty 

Price $49.95 + 2.00 Shipping 
'Ilinois Residents add 7% Tax 


STL 
P.O. Box 2263, Darien, Illinois 60559 
(312) 654-8365 

REQUIRES APPLE II I!+ or Ile with DOS 33 & 
COMMODORE 1520 Printer/Plotter (Sold nationwide 
under $50) 
* APPLE is a trademark of APPLE COMPUTER INC 
* COMMODORE i's a trademark of COMMODORE 
BUSINESS MACHINES INC 


RIORHYTHM CHART FOR JANUARY Bb 
; Mi HAT 
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so 


Da Poma GB 


GradeBook Management 


FOR 
Apple //’s 
Radio Shack Model 4 
Macintosh 


ask your dealer 


OR 
order direct 


Da Poma. Inc 
P.O. Orawer H 


Hondo, Texas 78861-0240 
512-426-5932 


CIRCLE NUMBER 8&2 


unique club 
beats them all 


DISK-OF-THE-MONTH CLUB 


a 

q P.O. BOX 116, FAIR LAWN, N.J. 07410-0116 1 

B same | 

i STREET ADDRESS i 

i city STATE zip. i 

Mc ih ni el 
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nibble 
software 


To order Nibble programs on disk, use 
the convenient order card bound into 
this issue. See the last page of this 
catalog for ordering information and 
an additional ordering coupon. 


Code: 


NE __ : Featured in Nibble Express Volume _ 
V__ #_: Featured in Nibble Volume 


Issue # __ 


APPLE TRAC PLUS is an easy-to-use, adaptable 
system for analyzing ‘where your money goes."’ 
TRAC handles credit cards, checks, and cash and 
prints more than 10 different reports for budget 
spending analysis. Thousands are in use by Nibble 
readers. Companion programs TRAC BUDGET, 
TRAC GRAPHICS, and TRAC INCOME are 
offered as separate disks in this catalog. (NE 1) 


SPACE MAZE puts you in control of a graphics 
space ship which you must guide through a maze 
under game paddle or joystick control. (NE 1) 


Order Reference; [TR]. ..$24.95 + shipping 


STAR ATTACK is a fast arcade space shooting 


Zap the bad guys but don’t hit your friends! It’s not 
easy! (NE 1) 


AIRSEA BATTLE pits the Army and Navy in low 
resolution graphics attack maneuvers. Choose sides 
and play a friend (or your Apple). (NE 1) 


LOW RESOLUTION SHAPEWRITER helps you 
create and run high speed Lo-Res graphics shapes in 
your programs. Instructions show how to do the 


whole job. (V1 #2) 


Order Reference: [SA]. . .$19.95 + shipping 


gallery game. Friendly and hostile ships scan the skies. 


APPLE TOUGH TEXT PROCESSOR iis an 
affordable, line-oriented text processor. It's easy to use 
and features: upper/lower case, right margin 
justification, erase/retype, find/replace, shift 
paragraphs, parallel/serial printing, and a lot more. 
Learn how text processing works! (NE 1) 


APPLE SIMON is a low resolution color graphics 
version of the popular Simon Says game. (NE 1) 


TIGER GRAPHICS is a fast utility for printing 
graphics dumps to IDS 440/460 Paper Tiger printers. 
(NE 1) 


Order Reference [TG]. . .$24.95 + shipping 


F.A.S.T. is a forecasting and sales trend simulation 
and modeling program for testing different strategies 
in selling multiple products and services. Build a 
productivity model for testing critical hiring, pricing, 
etc. (NE 1) 


SUPER WEAVER simulates an 8 harness loop in 
high resolution graphics. Simple keyboard commands 
provide control and the pattern can then be printed 
as a complete draw-down. (NE 1) 


FOOTBALL simulates a hand-held game with 
alternate running, passing and kicking plays to score. 
(NE 1) 


Order Reference [FW]. ..$24.95 + shipping 


PERSONAL INVENTORY PROGRAM provides a 
complete disk based data management system for 
inventorying and tracking your personal assets. It is 
invaluable for insurance reporting. (NE 1) 


AMPER INTERPRETER UTILITIES is a powerful 
utility library which adds a full function 
PRINT...USING command to Applesoft. It includes 


other commands for screen control. (NE 1) 


FOUR IN A ROW pits you against another player 
to line up four low resolution graphics blocks in a 
row to beat your opponent. (NE 1) 


Order Reference: [P2]. ..$29.95 + shipping 


AUTOMATED INTELLIGENCE MAILING 
SYSTEM manages your mail lists with ease! You 
define up to 32 fields of information and control 
formatting, editing, sorting, and printing labels. You 
won't find another one like this. (NE 1) 


CONCORDANCE is a powerful utility that cross 
references your Applesoft program variables and tells 


where they're used. (NE 1) 


LOW SCORE II pits you against the Apple in Hi- 


Res graphics in a challenging dice game. (NE 1) 


Order Reference: [AC]. ..$28.95 + shipping 


WILL O’ THE WISP takes you on an adventure 
through forests, caves and castles to the den of Ralph, 
the magician. (NE 1) 


BLAST AWAY makes you a ghostbuster trying to 
zap the ghosts as the windows of the haunted house 


light up. (NE 1) 


LOAN REDUCTION ANALYSIS projects the 
effect of interest changes and loan terms in analyzing 
major financing purchases. (V1 #8) 


Order Reference: [WO]. ..$19.95 + shipping 


CHAMP CHECKBOOK MANAGEMENT is a 
versatile check reconciliation system with editing, 
search, posting and running bank balances. (NE 2) 


AMPER-READER is a utility that speeds the reading 
of sequential text files by a factor of 5-10 times. (NE 


2) 


APPLE COMMUNICATOR is a demonstration 
program for assembling words and sentences using the 
game paddle. It is adaptable for other inputs for use 


by the handicapped. (V2 #1) 


Order Reference: [CH]. ..$28.95 + shipping 
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MUSIC RETRIEVAL SYSTEM is a flexible file 
management system oriented to cataloging and 
retrieving your record and tape collection. (NE 2) 


LE MANS is a fast graphics racing game along 
twisting, narrowing roads. (NE 2) 


MORSE CODE SYSTEM generates Morse code 
sight and sound for learning this communication 


method. (V2 #2) 


Order Reference: [MR]. ..$19.95 + shipping 


APPLE PAINT BOX is a Hi-Res graphics program 
that combines the functions of Etch a Sketch, Spiral 
Graph, and a function driven drawing board. Auto 
color fill-in selection and shape drawing make this an 
unusual drawing aid. (NE 2) 


THE MAD, MAD, MAD CUBE is a low resolution 
graphics version of Rubik's cube. (NE 2) 


APPLESOFT LINE FINDER locates individual 


program lines in memory and lets you append 
forbidden line numbers, repair programs, and more. 
(NE 2) 


Order Reference: [PB]. ..$24.95 + shipping 


STAR (STORAGE AND RETRIEVAL) SYSTEM 
is an extremely powerful data file management 
program for building your own custom databases and 


reports. (NE 2) 
TRAP ’EM is an unusual text/graphics game that pits 
you against three deadly beasts which you attempt to 


trap before they eat you. (NE 2) 


BOOT 3.2/3.3 is a ‘double boot system" for both 
versions of Apple's operating system. (V2 #4) 


Order Reference: [ST]. ..$29.95 + shipping 


DISK MASTER is a DOS 3.3 utility for recovering 
deleted files, catalog sorting, and direct track/sector 
examination. (NE 2) 


TRAP/STEP single steps through the execution of an 
Applesoft program to examine program logic. It allows 
traps to be planted to examine specific variables 
during the program flow. (NE 2) 


APPLE BIORHYTHMS produces graphics biocharts 
and printed reports of your biocycles. (NE 2) 


Order Reference: [DM]. ..$29.95 + shipping 


APPLE MARKETING AND PERSONAL 
SHOPPING helps keep track of your groceries and 
other items and even prints a pre-sorted shopping list. 
It lets you know what you have and what to get on 
your next visit to the store. (NE 2) 


AMPER-JUMP and T-SORT is a fast machine 
language sorting utility for both primary and index 
fields in a tile. (NE 2) 


APPLE ARTIST includes functions for boxes, fill- 
ins, lines, and other Hi-Res graphics functions. (NE 2) 


Order Reference: [MA]. . .$29.95 + shipping 


APPLE DEBT/ASSET REPORTING SYSTEM is a 
home finance system for projecting future 
expenditures and debts. Project your net worth and 
test new investment and debr strategies. (NE 2) 
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AMPER-PRINT-USE simulates the PRINT... 
USING command for column heading, decimal and 
scientific notation, left and right justification and 
more. A unique Applesoft programming utility! 


(NE 2) 


LASER BLASTER puts a host of aliens on a 
collision course with your space station. Rotate and 
fire before impact. (NE 2) 


Order Reference: [DA]. . .$29.95 + shipping 


FINANCIER III provides loan reduction calculation, 
amortization, two types of depreciation, and simple 
and compound interest. (V2 #7) 


POUR BOY’S LE is an Applesoft program editing 
aid that includes start/stop list, fast cursor advance, 
shorten line length, and other functions. (NE 2) 


APPLE CATSUP catalogs a disk and provides a 
shorthand menu method for issuing DOS 3.3 
commands with one or two keystrokes. (NE 2) 


NFL RATING SYSTEM measures relative strengths 
of all the NFL football teams and predicts the 
winners. (V2 #7) 


Order Reference: [FI]. ..$19.95 + shipping 


TRAC BUDGET is a flexible, fast budget 


preparation and reporting system for personal finances. 


It allows manual or automatic budget preparation and 
produces a variety of budget/actual report 
comparisons. It is recommended for use with TRAC 
PLUS. (NE 2) 


TRAC GRAPH plots your finances in high 
resolution graphics, using information directly from 


the TRAC files. It requires TRAC PLUS. (NE 2) 


APPLE ARCHIVES lets you back up your disk files 
automatically to tape cassette. (NE 2) 


THREE-D TIC TAC TOE is a Lo-Res graphics 
version of the popular multi-level board game. (V2 
#8) 


Order Reference: [TB]. . .$29.95 + shipping 


APPLE HEXPAD is a “phantom keypad”’ for fast, 
easy entry of machine language programs with 
automatic forward/backward spacing. (V2 #8) 


DOS REMOVER physically removes DOS 3.3 from 
tracks one and two of your diskettes and frees up 
additional disk storage. (V2 #8) 


COMMAND CHANGER lets you physically change 
and shorten your DOS 3.3 commands. (V2 #8) 


SCREEN FORMATTER lets you customize data 
entry for professional looking screens. (V2 #8) 


X-Y PLOT provides simple parameters for plotting 
data with Apple’s DOS Tool Kit. (V2 #8) 


Order Reference: [HX]. ..$19.95 + shipping 


APPLE TURTLE GRAPHICS is a pseudo LOGO- 
type language for guiding your Hi-Res turtle around 
the screen! You write simple commands to move, 
turn, and draw and it follows your every command. 


(NE 3) 


TRAC INCOME adds a third major module to the 
TRAC home finance system. It generates reports for 
year-to-date income profiles and monthly income 


statements, using data from TRAC BUDGET and 
TRAC files shown elsewhere in this catalog. (NE 3) 


APPLESOFT LINE CRUNCHER automatically 
compresses multiple Applesoft program lines to 
smaller, multi-statement programs. A powerful 
program utility! (NE 3) 


Order Reference: [TU]. ..$29.95 + shipping 


APPLE TURTLEGRAPHICS TUTOR is a 
complete pseudo-LOGO turtle package for young and 
old! Dynamic demonstration library shows what the 
turtle can do and how to put it through its paces. 
Create your own pictures! Combine them! Even 
create 3-D effects. (NE 3) 


Order Reference: [TT]. ..$23.95 + shipping 


APPLE SCRAMBLE is a Hi-Res version of the 
popular letter/tiles game. Slide your way to success. 


(V3 #1) 


APPLE CHECKER is an important utility for 
comparing your typing of Nibble programs with check 
sum totals published in Nibble. (V3 #1) 


LO-RES HYPER-SCROLL provides fast 4-way 
scrolling of your screens. Produces spectacular screen 


displays. (V3 #1) 


VARIABLE CROSS REFERENCER lets you 
extract, sort, and alphabetize your Applesoft variables 
together with program line numbers. (V3 #1) 


AMPER FREE SPACE shows how much disk space 
is left... without loading other programs! (V3 #1) 


Order Reference: [SC]. . .$19.95 + shipping 


NIBBLE MACHINE LANGUAGE EDITOR is a 
unique utility for entering and editing machine 
language programs. It allows dynamic insert, delete, 
and exchange of machine code directly in memory. 
Includes a full disk command set for retrieving and 
saving files. A must for your library! (NE 3) 


LAMP performs: decimal to hex conversion; 
parameter lists for machine language; locations of 
Applesoft lines; ASCII conversion; and free disk 
sectors. (V3 #2) 


APPLE CAL lets you schedule events, holidays, and 
appointment days months or even years in advance. 


Prints calendars through the year 2000. (NE 3) 


Order Reference: [ML]. ..$29.95 + shipping 


APPLE SLUGGER is a Hi-Res action baseball game. 


Pitch, bat, and field in your own home! (NE 3) 


APPLE PIE CHART is a set of routines for Apple's 
DOS Tool Kit for Hi-Res pie charting with color 
labels and highlighting (requires the Apple DOS Tool 
Kit). (V3 #2) 


AMPER-FIND searches out variables, strings and 
commands at machine language speed. (NE 3) 


SPEED SORT speeds your string sorting by a factor 
of 60. Handles one- or two-dimensional arrays in a 
flash. (V3 #2) 


Order Reference: [SL]. ..$19.95 + shipping 


APPLE BOND MANAGER is a comprehensive 


program for analyzing alternative bond investments. 


Comparative gross yields, capital gains yields, current 


and after tax yields. (NE 3) 


DOS 3+2 is a fast switching utility between DOS 
3.2 and 3.3. (NE 3) 


APPLE DARTS is a spectacular Hi-Res graphics dart 
game with two levels of play. (NE 3) 


Order Reference: [BN]. . .$29.95 + shipping 


AMPERSPEED improves DOS 3.3 sequential text 
file reading by nearly three to one. (NE 3) 


LAMP II works with LAMP (offered elsewhere in 
this catalog) to add more utility functions, including 
three-letter commands for cataloging and displaying 
free sectors on a disk. (V3 #3) 


PROGRAM LIST PROTECTOR prevents your 
Applesoft programs from being listed. Keys the 
program access to your own code word. (V3 #3) 


3-D MAP demonstrates three-dimensional landscapes 
using Apple’s DOS Tool Kit. (V3 #3) 


Order Reference: [AM]. ..$22.95 + shipping 


MICRO-CALC generates your own, customized 
finance programs for home and business. You set up 
your own accounting spreadsheet, specify data, 
comments, and formulas for up to 20 columns and 
rows. Then Micro-Calc creates your own Applesoft 
program to do the job. (NE 3) 


APPLESOFT VARIABLE CRUNCHER compresses 
long variable names to one or two letters, and shrinks 
your program down to size. (NE 3) 


APPLE LIFE sets up Hi-Res colonies of life cells and 
shows their life... growth. ..decline...and creation 


of other colonies. (NE 3) 


Order Reference: [MC]. . .$29.95 + shipping 


ELECTRIC ABACUS is a Lo-Res graphics version 
of the timeless oriental calculator. (V3 #4) 


APPLE GO puts DOS 3.3 commands under your one 
or two keystroke control. Uses a single letter for the 
command and a single designator for each file name. 


(NE 3) 


QUICKSORT lets you sort arrays 50-170 times faster 
than Applesoft. (NE 3) 


APPLE INITIA is a unique utility for setting and 
resetting Applesoft arrays at blinding machine 
language speed. (NE 3) 


Order Reference: [AB]. . .$22.95 + shipping 


APPLESOFT LINE EDITOR is a powerful utility 
that helps you write and edit Applesoft programs. 
Auto line numbering, insert, delete, and other 
commands allow you to directly edit program lines 
without having to retype or recopy entire lines. A 
must for your library! (NE 3) 


SPRINT SPEED READING is an automatic text/ 
number generator that helps increase your reading 
speed by up to 100%. It has options for preschoolers 
up through adult level of reading. (NE 3) 


OTHELLO is a Lo-Res graphics version of the 
popular board game. You can play against another 
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player or your Apple! (NE 3) 
Order Reference: [AL]. . .$29.95 + shipping 
DDT is a set of fast utilities for relocating and 


embedding programs of above DOS 3.3 buffers. (V3 
#5) 


ELECTRIC HOURGLASS is a Lo-Res graphics 
hourglass with sound and multicolored sand. (V3 #5) 


DISK DUMPER provides a fast, simple way to dump 
selected or all DOS 3.3 disk files to your printer 
automatically. (NE 3) 


INPUT SCREEN BUILDER provides samples for 
professional data entry screens using simple data 
statements. (V3 #5) 


SUPER WRITER formats Applewriter | text in 
pages for forward and backward review. (V3 #5) 


Order Reference: [DD]. . .$22.95 + shipping 


APPLESOFT RECORD COMMAND SYSTEM is 
an advanced data filing, editing, printing, and 
communications program. Build your own records and 
fields. ..search records. ..merge files. ..and send data 
over communications lines. (NE 3) 


DISK COMMANDER shortens DOS 3.3 commands 
to three characters and catalog names to 1-2 digits. 


(NE 3) 


APPLE ART GALLERY is a comprehensive 
collection of 33 different art forms. Each art form has 
multivariations for hours of entertainment in Hi-Res 
graphics. (NE 3) 


Order Reference: [AR]... .$29.95 + shipping 


BINARY CLOCK is an accurate machine language 
timepiece in Lo-Res graphics. (NE 3) 


HI-RES DUMP produces giant double-sized prints of 
Hi-Res graphics to the Epson MX80 with Graftrax. 
(NE 3) 


SHOPPING LIST performs filing, editing, and 
display of your personal shopping items. (V3 #6) 


PRINT USR formats big and little numbers in your 
Applesoft programs with automatic decimal alignment 
and more. (V3 #6) 


COMPARE APPLESOFT is a valuable utility for 
comparing different versions of your programs for 


changes, additions, and deletions. (NE 3) 


Order Reference: [BC]. . .$22.95 + shipping 


AMP-L-‘SOFT is a whole library of utilities under 
ampersand control. Gives you machine language 
control of tones, bits, tag sort, substring search, and 
hex conversion. Adds machine language speed to your 


Applesoft programs. (NE 3) 


ELECTRONIC MESSAGE CENTER is a message 
handler for displaying sequences of messages for home 
and business. (NE 3) 


APPLE BOWL FOOTBALL is a fast moving text 
game that uses actual football statistics to produce a 
realistic simulation of the game. (NE 3) 


Order Reference: [AP]. . .$29.95 + shipping 


THE SHAPE is a powerful free form shape table 
creation program. Create your shapes in Lo-Res 
graphics and translate them into Hi-Res shape tables 
automatically. (NE 3) 


LIGHTSABER BATTLE pits Darth and Luke in a 
slugfest in Lo-Res graphics. (V3 #7) 


PRICE DEMO uses a product pricing problem to 
illustrate disk file indexing. (V3 #7) 


APPLE SCROLLER puts right, left, and downward 
text scrolling at your fingertips in machine language. 


(V3 #7) 


LOWER CASE WRITER lets you type upper and 
lower case characters to your Hi-Res screen. (V3 #7) 


Order Reference: [SH]. . .$23.95 + shipping 


LINE EDIT uses ROM techniques for full width 
Applesoft screen listings. (V4 #1) 


Order Reference: [IR]. ..$23.95 + shipping 


THE NIBBLE INVESTOR is a comprehensive 
tracking, analysis, reporting and graphics charting 
system for your stocks and investments. A best-seller 
with five different reports. (NE 4) 


DISK MAP SYSTEM is a disk analysis program that 
prints and analyzes your DOS 3.3 disk files, their 
location and use of disk space. (V4 #2) 


SPACE ROVER is an arcade game demonstrating 
the use of graphics scrolling of landscapes. (V4 #2) 


Order Reference: [IV]. ..$29.95 + shipping 


APPLE RECIPE BOX makes cook-booking simple! 
Retrieve, edit, and display, and print your favorite 


recipes with automatic portioning of different servings. 


(NE 3) 


APPLE DISK DOCTOR is a comprehensive ‘‘zap"’ 
utility for direct reading, writing, and editing of your 
disks. See how DOS stores your data! (NE 3) 


QUASAR II puts you in command of a starship 
charged with clearing distant galaxies, meteors, and 
asteroids. A Nibble version of the popular 
“Asteroids” game. (NE 3) 


Order Reference: [RB]. ..$29.95 + shipping 


FAT GRAPH gives you Hi-Res graphics tracking of 
your dieting objectives and weight lost. (V3 #8) 


SOUTHERN DRAW is a new precision “pencil” 
cursor for Hi-Res graphics. (V3 #8) 


SAV-DEL lets you save-delete selected Applesoft 
arrays without having to clear all of memory. (V3 #8) 


FINANCIER/TAX DEPRECIATION adds new tax 
rules and updates for the economic recovery act. (V3 
#8) 


Order Reference: [FT]. ..$23.95 + shipping 


APPLE DISK LIBRARIAN lets you get control of 
those big DOS 3.3 disk libraries. Handles up to 500 
disks with sorting, editing, and search. (NE 4) 


FAST GO-TO PROCESSOR is a machine language 
shortcut to Applesoft subroutines! Up to 100% speed 
improvement with GOTO and GOSUB commands. 
(NE 4) 


’PILLAR MUNCH is a fast action arcade game. 
Watch your 'pillar grow! Munch enough, and your 
‘pillar turns into a butterfly. (NE 4) 


Order Reference: [LB]... .$29.95 + shipping 


APPLE IRS is a tax estimating program for 
evaluating alternative income, investment and tax 


strategies. (V4 #1) 


TINY TYPER is a short, powerful text editor with 
append, erase, compact, format, and editing of text 


files. (V4 #1) 


COMPACT SORT does fast machine language 
sorting of Applesoft arrays in ascending/descending 
sequences. (NE 4) 
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CHAMP-R is an indexed reporting system for checks 
and accounts developed with the CHAMP, 
Checkbook Management System. (V4 #2) 


FORMULA | is a Hi-Res racing game with five 
different track patterns, barriers and speeds. (NE 4) 


FILE NAME MOVER is a DOS 3.3 disk utility that 
lets you switch/exchange catalog names to put them 
in the proper sequence. (V4 #2) 


Order Reference: [FO]. ..$23.95 + shipping 


THE NIBBLE DESIGNER AND ILLUSTRATOR 
are companion programs for creating, editing, and 
displaying complex graphics screens. They let you 
scale, edit, rotate, and even redraw your shapes in 
medium resolution graphics and then retrieve and 
control them in building your own design. (NE 4) 


DISK ZAP lets you read, examine, edit, and write 
your disk sectors directly. Great for exploring disk 
storing techniques and repairing damaged sectors. (NE 


4) 


NIBBLE INFERNO is a Hi-Res arcade game in 
which you rescue children from a burning orphanage. 


(V4 #3) 


Order Reference: [DS]. ..$29.95 + shipping 


POINTERS is a set of Applesoft utilities to recover 
from resets, FP commands, and split and overlay 
programs. (V4 #3) 


SORT FIVE is a case study in five different 
Applesoft sorting techniques. (V4 #3) 


SELF-MODIFYING APPLESOFT lets you change 
Applesoft programs while they're running without 
losing variables. (V4 #3) 


INTERVAL TIMER lets you time up to 25 events 
with control signals in machine language. (NE 4) 


HIDE/UNHIDE lets you store and retrieve your 
DOS 3.3 programs into a RAM memory expansion 
card. (V4 #3) 


Order Reference: [PT]. . .$24.95 


NIBBLE RAM MANAGER is a powerful DOS 3.3 
utility that puts up to ten programs into a 16K RAM 
card for instant access at the touch of a key. (NE 4) 


EXPENSE CALC is an easy-to-use spreadsheet 
program for weekly expense reporting with full 
scrolling and calculations. (NE 4) 


SEARCH AND REPLACE automatically scans and 
globally or selectively replaces strings and variables in 
your Applesoft programs. (NE 3) 


Order Reference: [RA]. ..$29.95 + shipping 


FLY AWAY lets you use a puffer gun to puff 
feathers, balloons, and other objects before they touch 
the ground. Arcade action! (NE 4) 


AUTOSCREEN lets you create a “magic cursor’’ bar 
in your Applesoft programs for menu item selection 
under arrow key control. (V4 #4) 


BADMINTON is a Hi-Res graphics simulation of 
tournament badminton. (V4 #4) 


PRETTY LISTER formats your Applesoft listings to 
indent multi-statement lines for that ‘‘structured 
programming look.” (V4 #4) 


Order Reference: [FL]. ..$23.95 + shipping 


THE NIBBLE ORACLE helps analyze decision 
alternatives based on your priorities and weighted 
values for each choice. A great executive decision 


tool. (NE 4) 


AMPER FREE SPLITTER lets you wrap Applesoft 
programs around protected memory areas. (NE 4) 


DOTS-ELLO is a Hi-Res graphics ‘‘connect-the-dots” 
game. (V4 #5) 


Order Reference: [OR]. . .$29.95 + shipping 


RAM PAD is an electronic notepad that saves up to 
four pages of text in a 16K RAM card. (V4 #5) 


SPELLING TUTOR lets you specify your spelling 
list and then reinforces learning by taking letters away 
from each word until you type it from memory. (V4 
#5) 


TIME TEACHER uses a Hi-Res clock to move the 
big and little hand to match the time target. (V4 #5) 


MATH MONSTER combines Hi-Res graphics with 
multiplication/division problem solving. Try to solve 
the problem before the Math Monster gobbles you up. 
(NE 4) 


NEWSAVER DOS recovers Applesoft programs lost 
from accidental FP’s and NEW’s. (V4 #5) 


Order Reference: [RP]. . .$23.95 + shipping 


THE NIBBLE PROGRAMMER lets you write 
structured Applesoft programs without line numbers 
and adds the powerful new commands LOOP and 
WHILE. Now you can name your subroutines with 
terms like GOSUB TOTALS for easy recall and self 
documentation. The PROGRAMMER then writes 
your program for you! (NE 4) 


MAGAZINE ARTICLE TRACKING SYSTEM 
indexes, sorts, and finds key articles in your library. 


(NE 4) 


THE NIBBLER is one of the best arcade games 
we've ever published. Nibble’s version of PAC-MAN. 
(NE 4) 


Order Reference: [PG]. . .$29.95 + shipping 


WORD FIND presents puzzles in which you find 
words embedded in letter mazes. (V4 #6) 
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SLOT FIND automatically examines slots and 
identifies your Apple configuration. (V4 #6) 


SIMPLE SEARCH is a fast machine language search 
for Applesoft string array matches. (NE 3) 


TEXT FORMATTER prevents word wraparound of 
your printed text. Provisions for breaking between 
words in 30, 40, 70, and 130 column formats. (V4 
#6) 


BOUNCING NUMBERS is a fun Hi-Res number 
recognition program for preschoolers. (V4 #6) 


Order Reference: [WD]. . .$23.95 + shipping 


TUNES is a comprehensive music system that lets 
you create songs and sound effects. Sharps, flats, 
duration, staccato, pauses, and all of the other 
piano/organ effects are there at your fingertips. (NE 4) 


APPLESOFT PROGRAMMING HELPER 
eliminates 50-80% of your program errors before you 
RUN your program by checking your syntax in 
advance. (NE 4) 


DIGGER lives beneath the sands of Mars. Help him 
outwit his adversaries in this Hi-Res arcade game. 


(NE 4) 
Order Reference: [TN]. ..$29.95 + shipping 


FILL-REVERSE adds spectacular effects to your Hi- 
Res graphics displays. (V4 #7) 


FUNCTION GRAPHER displays two arithmetic 
functions on the Hi-Res screen. (V4 #7) 


MULTICOPY makes up to seven copies of a disk 
with a single read. (V4 #7) 


ENCODE-DECODE encrypts or decrypts Applesoft 
and binary files for program security using a 
5-character key. (V4 #7) 


Order Reference: [FR]. ..$23.95 + shipping 


RAM DISK makes your RAM card a pseudo disk for 
access to DOS 3.3 data and programs. Later you can 
save pseudo disk files to diskette for permanent 


storage. (NE 4) 
PERSONAL APPOINTMENT CALENDAR keeps 
track of a year’s worth of appointments with fast 


editing and printing. (NE 4) 


APPLE TALKER lets your Apple speak using your 
library of words or sounds. (NE 4) 


Order Reference: [RD]. ..$29.95 + shipping 
MUNCHIES lets you outguess the number of dots 
your computer will munch. (V4 #8) 


AMPERPACKER saves space by packing text files 
before saving them to disk. (V4 #8) 


APPLE TRIG plots your favorite trig functions in 
Hi-Res graphics. (V4 #8) 


GRAPHICS 3-D explores three-dimensional graphics 
and hidden line removal. (V4 #8) 


Order Reference: [MU]. . .$23.95 + shipping 


NIBBLE DINER is a personal diet planner that not 
only provides you with nutritional analysis of foods 


and entire recipes but also helps keep track of your 
eating habits. The disk includes a database of over 


four hundred foods. (NE 5) 

DOS EXTENDER makes your favorite machine 
language routine a permanent part of DOS 3.3. (V5 
#1) 


ARTILLERY DUEL is a Hi-Res shootout over the 
mountain tops. (V5, #1) 


Order Reference: [DI]. ..$29.95 + shipping 

MX-80 PLOTTER makes your Epson printer into a 
high resolution plotter. (V5, #1) 

SIR is a semi-ultimate input anything routine for 
entering commas, colons and other characters rejected 


by Applesoft. (V5, #1) 


FAST FILE SEARCH speeds DOS 3.3 random 
access file searches by up to 20 times. (V5, #1) 


BLACK BOX uses reflection and absorption of atoms 
to find the hidden target. (V5, #1) 


Order Reference: [MX]. ..$23.95 + shipping 


APPLESOFT EXPANDER adds a library of routines 
for your DOS 3.3 Applesoft programs featuring: Hi- 
Res graphics text, hexadecimal PEEK/POKE and 
computed GOSUB/GOTO with the RAM card. 

(NE 5) 


NIBBLE GARAGE improves your car care by 
tracking maintenance and generating repair reminders. 


(NE 5) 


SPEED MAZE challenges you to nagivate a random 
maze at top speed. (NE 5) 


Order Reference: [AE]... .$29.95 + shipping 


FLASHCARD uses Hi-Res graphics for map drill 
with record keeping and quizzing. (V5 #2) 


HI-RES CHARACTER DRAWING makes text 
displays on the Hi-Res screen easy and quick. (V5 #2) 


SAFE CRACKER challenges you to find the 
combination and open the safe before the cops arrive. 


(V5 #2) 


FANCY PICTURE LOADER provides special 
effects for loading Hi-Res graphics. (V5 #2) 


CUSTOM CATALOG lets you modify DOS 3.3 for 
custom file type symbols, volume headers, and file 
names. (V5 #2) 


Order Reference: [FC]. . .$24.95 + shipping 


THE NIBBLE BROKER tracks your stocks and 
graphically displays your graphics with easy data entry 
and a variety of reports. (NE 5) 


QUICKSORT II is a machine language routine for 
sorting Applesoft one- and two-dimensional strings 
and numeric arrays on up to nine keys. (NE 5) 


STORM WARNING lets you battle the forces of a 
Midwestern storm to rescue town people and rebuild 


their houses. (V5 #3) 


Order Reference: [BR]. . .$29.95 + shipping 
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ATTACK OF THE KILLER SHAPE TABLES 
challenges you to zap the killer shapes before they cut 
your lifelines. (V5 #3) 


GRAPHICS TOOLBOX is a collection of graphics 
utilities for swapping Hi-Res pages by superimposing 
them or inverting them. (V5 #3) 


COMPLETE CATALOG lets you examine and 
recover deleted DOS 3.3 file names. (V5 #3) 


SCREEN EDIT 80 lets you create 80-column text 
screens for display from your programs (requires an 


Apple //e, 64K). (NE 5) 


Order Reference: [KS]. . .$23.95 + shipping 


THE BASIC ASSEMBLER is an editor/assembler 
package that is written in Applesoft BASIC. Use it 
to produce machine language programs quickly and 


easily. (NE 5) 


NIBBLE TV GUIDE keeps track of your TV 
program events and displays schedule conflicts. (NE 5) 


SPINBALL provides arcade action with multiple 
balls, spinners and barriers. (V5 #4) 


Order Reference: [BA]. . .$29.95 + shipping 


MONSTER HUNT challenges you to find the 
monster before he eats you up. (V5 #4) 


AUTOMATIC FUNCTION PLOTTER provides 
auto/manual scaling and graph overlays for plotting 
your favorite map functions. (V5 #4) 


LIFTOFF lets you save an area of the Hi-Res screen 
as a shape table. (V5 #4) 


APPLESOFT OVERLAYS manages your memory as 
you swap DOS 3.3 Applesoft program sections in and 
out of memory from disk. (V5 #4) 


Order Reference: [MH]. ..$23.95 + shipping 


NIBBLE KEYSOFT lets Applesoft and DOS 3.3 
commands be printed in upper or lower case in the 
full ASCII character set. (NE 5) 


PAYCHECK tracks your income and paycheck 
deductions for screen or printed reports. (V5 #5) 


CASTLE RICHE challenges you to find the fortune 
hidden in the adventure castle using text and Hi-Res 
graphics clues. (V5 #5) 


Order Reference: [KY]. ..$29.95 + shipping 


MATH MARATHON provides drills in the four 
basic operations with graphics figuring right on the 
screen. (V5 #5) 


HIDDEN LINES creates 3-D Hi-Res graphics on the 
Hi-Res screen. (V5 #5) 


DOUBLE HI-RES I demonstrates the principles of 
drawing on the double Hi-Res screen. It requires 
Apple //e with extended 80-column card or Apple //c. 
(V5 #5) 


ANT RACE is a “‘text graphics racing game’ — 
requires Apple //e with 80-column card or //c. (V5 #5) 


AUTOMATIC CAPITALIZER prints properly 
capitalized output to your printer. (V5 #5) 


Order Reference: [MT]. ..$24.95 + shipping 
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NIBBLE FILE CABINET is a flexible database 
management system for creating variable length 
records with key sorts and binary tree data storage. A 


Nibble best-seller! (NE 5) 


DISK CUSTOMIZER for DOS 3.3 provides one 
step formatting, volume header customization, and 
user selected HELLO program type. (V5 #6) 


CLAM BAKE challenges you to outrun the jellyfish 
and eat all the diatoms to win in arcade action. (NE 


5) 


Order Reference: [CB]. . .$29.95 + shipping 


RPN CALCULATOR includes a visible “stack,” 
error trapping, and help commands for a sophisticated 
graphics calculator. (V5 #6) 


LITTLE ORGAN APPLE lets you play music from 
the keyboard with Hi-Res graphics. (V5 #6) 


DISK MAP II shows where your DOS 3.3 files are 
located and how your disk is structured. (V5 #6) 


KEYBOARD INTERRUPT dumps your text screen 
to a printer on command. (V5 #6) 


Order Reference: [CL]. ..$23.95 + shipping 


APPLESOFT GLOBAL EDITOR provides powerful 
search and replace editing of your programs over a 
selected line range. (NE 5) 


NIBBLE COLOR BILLBOARD turns your Apple 
into an electronic billboard for the display of colorful 
attention-getting messages. (V5 #7) 


BRIDGE BIDDER pits you against your Apple in 
sharpening your bridge playing skills in Hi-Res 
graphics. (V5 #7) 


Order Reference: [AG]. . .$29.95 + shipping 


PEARSON PRODUCT MOMENT 
CORRELATIONS calculates a complete correlation 
matrix from your statistical data. (V5 #7) 


COUNTING QUIZ helps your preschoolers learn 
their numbers in Lo-Res and Hi-Res graphics. (V5 #7) 


APPLESOFT VARIABLE DUMP shows a complete 
list of your variables and their values at any time 
during program execution. (NE 5) 


DISK CERTIFIER marks all “‘bad spots” on either 
side of your DOS 3.3 diskette. (V5 #7) 


Order Reference: [PP]. ..$23.95 + shipping 


SOUND SYNTHESIZER is a sound creation utility 
that lets you “draw” your sound effects on the Hi-Res 
screen. Sound effects can be stored in libraries for 
later use by your own programs. (NE 5) 


LIST MASTER formats your Applesoft programs for 
easy-to-read structured listings. (NE 5) 


NIBBLE BEACH HEAD challenges you to lead 
your troops across the beach head to win in arcade 


graphics. (V5 #8) 


Order Reference: [SS]. ..$29.95 + shipping 


REGRESS provides video and printed regression 
analysis. (V5 #8) 


LITTLE FINGERS helps young typists learn the 
keyboard. Designed for small hands. (V5 #8) 


APPLESOFT ANTI-LINE CRUNCHER expands 
multi-statement Applesoft programs to give each 
statement its own line number. (NE 5) 


MONE runs under DOS 3.3 and provides a separate 
monitor in extended 80-column memory. It lets you 
switch back and forth to check the current status of 
your programs—requires a //e with extended 
80-column card or //c. (V5 #8) 


Order Reference: [RG]... .$23.95 + shipping 


NIBBLE GRADE BOOK lets you track and 
compute grades for up to ten classes of 80 students 
each. Record, analyze, and assign grades with ease. 


(NE 5) 


RAM DISK 64 creates 170-sector pseudo disks on 
your 128K //e or //c for fast access with normal DOS 
3.3 commands. Requires Apple //e with extended 
80-column card or Apple //c. (NE 5) 


MATHEMAGICIAN is an adventure game that 
combines education with fun in building math skills. 
(V5 #9) 


Order Reference: [GB]. . .$29.95 + shipping 


COMPASS QUIZ offers drill, practice, and progress 
tracking for learning the principle directions of the 
compass in Hi-Res graphics. (V5 #9) 


TADPOLE ALPHABET lets your preschooler learn 
the alphabet in an arcade style game. (V5 #9) 


PROMENU lets you select system time and date and 
explore the ProDOS directory tree with a series of 
menus — 64K Applesoft and ProDOS required; must 
be converted before use. (V5 #9) 


SOLID STATE SLIDE SHOW stores Hi-Res 
pictures in your RAM card (or upper 16K on the //e) 
for superfast display. (V5 #9) 


Order Reference: [CQ]. ..$23.95 + shipping 


HI-RES HOUDINI is a powerful machine language 
graphics utility for creating special graphics effects 
including shift, merge, swap, and inverting both Hi- 
Res screens. (NE 5) 


POSTMASTER keeps records for up to 100 labels 
which can be sorted and custom printed with special 


options that you select. (V5 #10) 


3-D FOUR SCORE is a three-dimensional Tic Tac 
Toe in Lo-Res graphics. (V5 #10) 


Order Reference: [HH]. . .$29.95 + shipping 


DHR PALETTE is a graphics utility for designing 
double Hi-Res graphics screens and saving them to 
disk — requires a //e with extended 80-column card 
or //c. (V5 #10) 


FATHER’S FIRST PROGRAM is a collection of 
four programs in graphics designed with children in 
mind. (V5 #10) 


AUTOLOG keeps track of your sessions on the 
computer using ‘log on’’ and ‘‘log off”’ reporting. 


(V5 #10) 
HEX PEEKS, POKES, AND CALLS allows you to 


execute these commands from Applesoft using 
hexadecimal notation. (V5 #10) 


Order Reference: [HP]. ..$23.95 + shipping 


COUPMAN will help you keep track of your grocery 
coupons for greater savings. Analyzes and prints 
reports based on expiration date, coupon category, 
and more. (NE 5) 


APPLESOFT BUG CHASER helps you eliminate 
program bugs by continuously displaying the value of 
a selected variable during program execution. (NE 5) 


GOLF PRO lets you design your own golf course and 
play the holes in Hi-Res graphics. (V5 #11) 


Order Reference: [CP]. . .$29.95 + shipping 


CROSSWIND is a dramatic simulation of a football 
kick with control over velocity, angle, and wind 
direction in Hi-Res graphics. (V5 #11) 


COMPOSITE BIORHYTHMS shows your biocycles 
individually and combined in Hi-Res graphics. (V5 
#11) 


MACHINE CODE EDITOR disassembles machine 
code as you enter it for instant feedback and 
comparison to the original. (V5 #11) 


Order Reference: [CW]. . .$23.95 + shipping 


STOCK ANALYST automatically evaluates your 
portfolio, including the status and history of 
individual stocks and your entire holdings. (NE 5) 


AMPERGO is a powerful ampersand utility that lets 
you write Applesoft programs using labels for GOTO 
and GOSUB statements. (NE 5) 


OBELISK challenges you to pilot your rover vehicle 
to the mother ship, avoiding death rays from alien 
ships and obelisks. (V5 #12) 


Order Reference: [AN]. . .$29.95 + shipping 


MATH CONCENTRATION reveals “concentration 
panels’”’ as a reward for solving math problems in Hi- 
Res graphics. (NE 5) 


MORTGAGE CALCULATOR displays your 
monthly payment and total payments when a loan 
amount, interest rate, and term are entered. (V5 #12) 


DOUBLE HI-RES GRAPHICS ROUTINES 
include the driver routines and sample programs 
presented in the Graphics Workshop — 128K 
required on the //e or //c. (V5 #12) 


RAM RESERVATION CENTER is a ProDOS 
utility for reserving or freeing areas of RAM so that 
ProDOS will respect the new boundaries — requires 
ProDOS and at least 64K. (V5 #12) 


Order Reference: [MM]. . .$23.95 + shipping 


NIBBLE ARCHITECT is a powerful program for 
planning your room design. Scaled, Hi-Res graphics 
objects can be easily moved, changed, copied, printed, 
and saved to disk for professional quality results. (V6 
#1) 


POWERKEY lets you define single keyboard macros 
for simple entry of DOS 3.3 commands and program 
statements. Dramatically reduces program typing. (V6 
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CLAUSTROPHOBIA pits you against aliens from 
the sky who try to trap your gunner. Bring them 
down in neat columns at the edge of the screen to 
win. (V6 #1) 


Order Reference: [NA]. ..$29.95 + shipping 


SYSTEM SOLVER will solve any set of up to 70 
linear equations with up to 70 unknowns. (V6 #1) 


CALORIE COUNTER helps track your calorie 
consumption while it builds a database on disk as you 
add new foods to your diet. (V6 #1) 


CATALOG PLUS lets you find and catalog DOS 
3.3 disks by file type and initial character. (V6 #1) 


APPLESOFT EXECUTION MONITOR graphs a 
chart of your program’s execution showing the 
program statements that are executed most often. A 
powerful tool for optimizing Applesoft programs. (V6 
#1) 


Order Reference: [SY]. ..$23.95 + shipping 


SPOOLER keeps your printer busy while you keep 
computing. Uses the 16K RAM card area to store 
printer output as you work under DOS 3.3. (V6 #2) 


* ngage New Apple Programs! * 
Read ly to ape end rage 


NIBBLE PAGE EDITOR lets you create up to 8 
pages of information with cursor oriented screen 
editing, printing, or disk storage. (V6 #2) 


THE NIBBLE 500 challenges you to race for glory 
through a curving track with random obstacles and a 
pit stop. (V6 #2) 


Order Reference: [SP]. . .$29.95 + shipping 


PERPETUAL CALENDAR will print a full page 
calendar for any year since 1753. (V6 #2) 


DOUBLE HI-RES ROUTINES include the final 
routines for vertical shifting in the double Hi-Res 
driver, including a demonstration program and the 
entire DHR driver — requires 128K //e or //c. (V6 #2) 


DOS TRICKS lets you obtain disk boot statistics, 
read/write statistics, and create a “‘scratch pad”’ text 
file on DOS 3.3 disk for quick reference information. 


(V6 #2) 


DISK LOCK helps you avoid writing over valuable 
data by fooling DOS 3.3 into thinking that your disk 
is full. (V6 #2) 


Order Reference: [PC]. ..$23.95 + shipping 


NIBBLE MEDIC will help you keep track of your 
family’s medical expenses and prescription history 
with a variety of editing and report formats. (V6 #3) 


TINY COMPILER is an Applesoft post-processor 
that speeds your program’s execution up to 20%. (V6 
#3) 


TRIVIA MASTER challenges you to beat the clock 
at answering trivia questions. The disk includes a file 
of 200 questions to get going. (V6 #3) 


Order Reference: [MD]. . .$29.95 + shipping 


LUCK converts all your upper and lower case 
program text to upper case for easy formatting of 


listings. (V6 #3) 


TEXT VIEWER scrolls quickly through your text 
files without having to boot your word processor. (V6 
#3) 


PRODOS CRYPTOGRAPHY disassembles 
ProDOS's message printer and includes a utility 
printer to build and display your own messages. (V6 
#3) 


AMPERDHR is a library of graphics routines to 
simulate normal Hi-Res commands in double Hi-Res 
graphics — requires 128K. (V6 #3) 


SCREEN SPINNER builds eye-catching screen 
borders by spinning your message around the 
perimeter of the display. (V6 #3) 


Order Reference: [LK]. . .$24.95 + shipping 


APPLE HIGHWAYS will find the best route 
between 170 major U.S. cities and print both the 
route and the mileage between junctions. (V6 #4) 


NIBBLE GAS MISER tracks your gas mileage and 
graphs the results in Hi-Res graphics. (V6 #4) 


IDOL OF MONTEREY is a text adventure game in 
which you battle the monsters of the forest to regain 
the precious idol. (V6 #4) 


Order Reference: [HI]. ..$29.95 + shipping 


APPLE TIME TUTOR uses the Hi-Res screen with 
several clock formats and levels of difficulty for 
youngsters of different ages. (V6 #4) 


BLOCK SHAPE ANIMATION IX includes a series 
of routines for single-byte block shape animation. (V6 


#4) 


BEEP CUSTOMIZER lets you modify Apple’s tone 
and include the changes in your own programs. (V6 


#4) 


PRODOS DATE AND TIME allows you to set the 
date and time without a clock card within ProDOS. 


(V6 #4) 


INPUT AND EDIT uses the ampersand to allow 
editing within an input field. (V6 #4) 


Order Reference: [TM]. . .$24.95 + shipping 
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APPLESOFT SUPERCHARGER is a set of 
machine language utilities that use ampersand 
commands to format output, control user input, chain 
programs with common variables, and much more. 


(V6 #5) 


BANNER BOSS creates custom banners in two 
letter sizes with underlining and emphasized print 
features. (V6 #5) 


ADVENTURE CONSTRUCTION SET lets you 
design and play your own adventure games. (V6 #5) 


Order Reference: [BB]. . .$29.95 + shipping 


UNIVERSAL METRIC CONVERTER converts 
English and metric units with menu-driven ease. 
(V6 #5) 


AUXILIARY MEMORY EXAMINER is an 
ampersand-driven utility that lets you examine any 
portion of the 128K of RAM in an Apple //c or 
extended //e. (V6 #5) 


BASIC ASSEMBLER ENHANCEMENTS improves 
Nibble's BASIC Assembler with powerful printing 
and editing features. (V6 #5) 


PAGE lets you draw Hi-Res pictures and save them 
on disk as screens or as program lines that you can 
merge with your favorite Applesoft routine. (V6 #5) 


Order Reference: [UM]. . .$23.95 + shipping 


CHART MANAGER creates sophisticated Hi-Res 
scatter plots, bar graphs and pie charts from data you 
key in or read from disk. (V6 #6) 


DOS DESIGNER is a menu-driven system that 
allows you to change DOS 3.3 commands, create 
custom error messages, alter the disk volume heading, 
and more. (V6 #6) 


ANTS! is a Hi-Res action game that pits you against 
hordes of giant, invading ants bent on destruction! 


(V6 #6) 


Order Reference: [CM]. . .$29.95 + shipping 


BLOCK SHAPE ANIMATION X is an ampersand 
command interpreter for block shape animation that 
lets you acccess commonly used routines without 
using their CALL addresses. (V6 #6) 


CHICKEN LITTLE’S TYPING GAME teaches you 
the basics of touch typing. To score you must type 
the letters that fall from the top of the screen. (V6 
#6) 


VIGILANT FID lets you store the FID program in 
the RAM card area of memory and access it with a 
simple command for speed file manipulation under 
DOS 3.3 (V6 #6) 


PRODOS TYPE COMMAND adds a convenient 
TYPE command to ProDOS so you can dump an 

ASCII version of any file to any output device in 
immediate and deferred modes. (V6 #6) 


PROGRAMMING THE APPLEMOUSE II 
demonstrates mouse programming techniques with 
Applesoft and machine language. Create line drawings 
on the Lo-Res screen and determine the mouse’s 
coordinates with these two sample programs. (V6 #6) 


Order Reference: [BS]...$23.95 + shipping 
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NAVIGATOR makes program documentation a 
breeze! It formats Applesoft listings and prints 
flowcharts complete with graphics symbols. (V6 #7) 


NIBBLE MAESTRO transforms the Apple keyboard 
into a four-octave organ. Notes appear on a staff as 
you play, and you can save tunes to disk and edit or 
play them later. (V6 #7) 


LIGHTNING COPY copies disks quickly with a 
two-drive system under DOS 3.3 You control the 
error handling for fast, foolproof copying, even with 
damaged disks. (V6 #7) 


Order Reference: [NV]. ..$29.95 + shipping 


IRA COMPARISON CHART calculates the future 
value of an Individual Retirement Account (IRA) and 
compares it to your return on another investment. It 

even allows you to adjust for inflation. (V6 #7) 


ASSEMBLY II includes two machine language 
programs. One produces music from the Apple 
keyboard; the other converts between the binary, 
decimal and hexadecimal number systems. (V6 #7) 


EYE OPENERS creates an opening iris effect for 
dramatic transitions from one Hi-Res display to the 
next. (V6 #7) 


SUPER REM REMOVER removes REMs from 
Applesoft programs for faster program execution and 
more compact code. Run the speedy, REM-less 
version of your program, and save a fully documented 
program listing for reference. (V6 #7) 


Order Reference: [IC]. ..$23.95 + shipping 


EXECUTIVE CARD FILE is an electronic index 
card file that features easy data entry and editing, 
speedy sorting, and disk-based storage. Each index 
card can hold nearly 500 characters, and files can be 
divided into seven sections with 35 index cards in 


each. (V6 #8) 


PRODOS-DOS 3.3 DOUBLEBOOT lets you boot 
ProDOS or DOS 3.3 from a single disk. (V6 #8) 


NIBBLE BLACKJACK gives you the excitement of 
Las Vegas style blackjack on the Hi-Res screen. The 
game includes splitting on pairs, doubling down, and 
five-card and six-card specials. (V6 #8) 


Order Reference: [EX]. ..$29.95 + shipping 


DYNAMIC FUNCTIONS offers a pair of 
ampersand routines to convert strings to functions and 
then evaluate the converted string. Two 
demonstration programs are included. 


INVERSE KEYWORDS highlights every occurrence 
of a selected keyword in an Applesoft listing for easier 
program debugging. The program runs under DOS 3.3 
with 64K RAM. (V6 #8) 


DOUBLE HI-RES GRAPHICS lets you create crisp 
Hi-Res displays with double the normal horizontal 
resolution using the Apple II Plus. The bonus: you 
don’t need extra hardware! (V6 #8) 


APPLESOFT SCREEN CREATOR converts your 
text screens to Applesoft code. An editor allows 
normal, inverse, and flashing characters. (V6 #8) 


Order Reference: [DY]. . .$24.95 + shipping 


NIBBLE DESK CALENDAR is a quick-reference 
desk calendar that lets you highlight dates and print 


out a list of the corresponding events. Menu bar 
selection makes entering, changing or deleting events 
a snap! (V6 #9) 


APPLESOFT TUTOR sharpens your debugging 
skills with a system of detailed error messages for a 
hundred different errors. (V6 #9) 


PENGUIN is an arcade-style strategy game with 
increasing skill levels. Help Sammy the Penguin fend 
off the invaders to his little island! Sliding ice blocks 
are your weapons. (V6 #9) 


Order Reference: [DC]. ..$29.95 + shipping 


ASCILDUMP (Nibbling at Assembly Language) lets 
you stop, pause, restart and step through a hex dump 
at your own pace. It also prints the hexadecimal 
values of numbers stored in memory and their ASCII 
equivalents, (V6 #9) 


THE SERPENT’S COIL is a Hi-Res graphic 
hurricane tracking program for the Caribbean and 
Gulf of Mexico. Features include easy data entry and 
update, single or multiple storm plots, scaling and 
labeling of charts. (V6 #9) 


Track your home utility costs with Nibble MeterMan! 


- * More Programs for Your Apple! * 
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HEX SEQUENCE FINDER searches for the 
sequence of hex code you specify and locates each 
occurrence — fast! Use it to debug your machine 
language programs; just enter the starting page, 
ending page and the search sequence. (V6 #9) 


SUBROUTINE STORE keeps your favorite 
subroutines on file for future use. Descriptive REM 
statements tell you exactly what each subroutine does. 
List the subroutine you want, renumber it, add it to 
another program and save the result. (V6 #9) 


Order Reference: [AD]. . .$24.95 (Introductory price 
$17.95 expires 11/30/85) + shipping 


NIBBLE METERMAN tabulates your utility 
payments and graphs them for easy cost analysis. (V6 
#10) 


WINDOW MAGIC creates Mac-like windows that 
you can move anywhere on the Apple II Plus, //e or 
//c screen. Create any size window, overlap windows 
and direct I/O to them. (V6 #10) 


SPACECADE challenges you to dodge the meteors 
as they fall faster and faster. It takes speed and agility 
to survive Spacecade! (V6 #10) 


Order Reference: [WM]. . .$29.95 + shipping. 


NIBBLE PLANETARIUM is a Hi-Res star charting 
system with the features of a real planetarium. Display 
and print the sky from any location in the Northern 
Hemisphere and at any time. A great learning tool 
for amateur astronomers! (V6 #10) 


INVESTOR PRICE FILE EDITOR is an 
enhancement to Nibble Investor. It sorts, deletes and 
quickly adds records to the Investor's price files. (You 
need Nibble Investor, Order Reference IV, to use this 
program.) (V6 #10) 


TEXT FILE UTILITY creates and edits text files 
easily with features that include line numbering, 
character insert and delete, and a range of disk 
options. (V6 #10) 


RECOVERING DELETED PRODOS FILES 
instantly exhumes deleted files under ProDOS. (V6 
#10) 


Order Reference: [PN]. ..$23.95 + shipping. 


SUPER SHOPPER is a database that files a master 
shopping list of up to 1,600 separate items and prints 
out custom shopping lists to bring to the store. 
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ATLANTIC CONVOY pits your navy against the 
enemy in an all-out struggle for the Atlantic domain. 
You need strategy and skill to maneuver your fleet of 
thirteen vessels with various defense, move and attack 
capabilities. 


Applesoft Cross Reference, 
ProDOS Input Anything, Education Comer, 
Nibbling at Assembly Language, and More! 


SUBROUTINE MASTER adds real subroutine 
handling to Applesoft. Features include references to 
subroutines by name, two-way parameter passing, 
recursion and local variables. 


Order Reference: [SU]. ..$29.95 (Introductory price 
$19.95 expires 1/31/86) + shipping. 


DIRECTION FIELDS plots direction fields using the 
mathematical function you supply. 
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HI-RES CRUNCH-DECRUNCH compacts Hi-Res 
pictures for efficient disk storage, then restores the 
data to its original size for Hi-Res display. 


APPLESOFT CROSS REFERENCE prints out four 
reports that list your programs’ references to line 
numbers, variable names, literal values and constants. 
An invaluable debugging aid! 


PROSIR streamlines input under ProDOS. An “input 
anything” routine allows you to restrict the length of 
a field and a phantom numeric keypad speeds 
numeric input. 


NIBBLING AT ASSEMBLY LANGUAGE IV 
includes two programs that create sounds and convert 
hexadecimal numbers to decimal as they demonstrate 
the 65C02 instructions that load, store, compare, 
transfer and branch. 


Order Reference: [DF]. . .$24.95 (Introductory price 
$17.95 expires 1/31/86) + shipping. 


NIBBLE INVESTMENT ADVISER calculates 
return on investment and tracks dividends for up to 
96 different investments. Use it to find out how well 
your investments are performing right now! 


PRODOS COPY COMMAND adds a COPY 
command to ProDOS for efficient file manipulation. 
Transfer files from within a BASIC program or an 
EXEC’able text file. 


TITAN CRONUS challenges you to battle the 
ancient gods in fast-paced arcade action. Fend off 
waves of attackers to win. 


Order Reference: [IA]. . .$29.95 (Introductory price 
$19.95 expires 2/28/86) + shipping 


BASIC DISASSEMBLER translates machine 
language code into symbolic source code that your 
assembler can read. Use it to modify, correct or 
enhance programs for which you have no source 


code. 


NIBBLE DUET jazzes up your Apple with two-voice 
sound. Create sophisticated sound effects to 
complement your programs. 


JUST WAITING demonstrates the use of the 
WAIT command to create a pause in your program 
while displaying no cursor or a custom cursor. 


ANATOMY OF A TWO-LINER is a collection of 
thirteen different games — each written in just two 
lines. Challenge your dexterity and speed with 
Dodgeball, Serpent, Find and Maze. 


HAPPY BIRTHDAY plays ‘Happy Birthday’ and 
displays the words in time with the song, complete 
with the birthday person’s name. 


Order Reference: [BD]. . .$24.95 (Introductory price 
$17.95 expires 2/28/86) + shipping 


Need to find a unique program? 


Want to locate that hard-to-find hardware item? 


Where you can get free software catalo 


is? 


Snseor new items are offered for 


fie, j et you've been looking for. 
An@l®e sure to tell them you saw it advertised in 


Nioble! 


This month you can find niblbLEADS 
on pages 157-159 
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nibble SOFTWARE ORDERING COUPON 
INTRODUCTORY PRICE OFFER 


NC (| Turtle BASIC/Nibble Calculator/Tank 
Combat. .. Volume 7, Issue #1. Introductory 
price $19.95 expires 3/31/86. 


For a 90-day period following the publication of 
each issue, NIBBLE will offer the major programs 
from that issue on a DISKETTE for a nominal 
“Introductory Price.” 

Following the 90-day introduction, the program 
will be offered with Reprints of the original NIBBLE an 
articles which documented them. In addition, 
where specifically noted, the programs will be pro- 
vided with significant enhancements which have 
been added to the diskettes 

During the introduction period, disks are 
shipped without accompanying documentation 
under the assumption that the buyer has the issue su O 


j | Super Shopper/Subroutine Master/Atlantic 
in which the programs appeared 


Nibble Investment Adviser/ProDOS Copy 
Command/Titan Cronus. . . Volume 6, 
Issue #12. Introductory price $19.95 expires 
2/28/86. 


Convoy... Volume 6, Issue #11. Introductory 
price $19.95 expires 1/31/86. New price: 
$29.95. 


EF 


BD 


( Nibble Light Pen/ProDOS Directory List/ 


ProCursor/DISPLAY/Nibbling at Assembly 
Language V...Volume 7, Issue #1. 
Introductory price $17.95 expires 3/31/86. 


BASIC Disassembler/Nibble Duet/Just 
Waiting/Anatomy of a Two-Liner/Happy 
Birthday... Volume 6, Issue #12. 
Introductory price $17.95 expires 2/28/86. 


OF O 


Direction Fields/Hi-Res Crunch-Decrunch/ 
Applesoft Cross Reference/ProSIR/Nibbling 
at Assembly Language IV...Volume 6, 
Issue #11. Introductory price $17.95 expires 
1/31/86. New price: $24.95. 


MT 


cB 


CL 


AG 


pP 


ss 


RG 


GB 


ca 


HH 


HP. 


cP 


Cw 


AN 


MM 


NA 


sY 


SP 


PC 


MD 


LK 


| Math Concentration 


V5/#12. $23.95 
Nibble Architect 
V6/#1. $29.95 
System Solver 
V6/#1. $23.95 
Spooler 

V6/#2. $29.95 
Perpetual Calendar 
V6/#2. $23.95 
Nibble Medic 
V6/#3. $29.95 


— LUCK 


V6/#3. $24.95 


Math Marathon HI Apple Highways 
V5/#5. $24.95 V6/#4, $29.95 

_ File Cabinet ™ Apple Time Tutor 
V5/#6. $29.95 V6/#4. $24.95 
RPN Calculator BB Applesoft Supercharger 
V5/#6. $23.95 V6/#5. $29.95 
Applesoft Global Editor UM [) Universal Metric 
V5/#7. $29.95 Converter 
PPMC V6/#5. $23.95 
V5/#7. $23.95 cm [) Chart Manager 
Sound Synthesizer V6/#6. $29.95 
V5/#8. $29.95 8S () Block Shape Animation X 
Regress V6/#6. $24.95 
V5/#8. $23.95 NV Navigator 
Nibble Grade Book V6/#7. $29.95 
V5/#9. $29.95 Ic IRA Comparison Chart 
Compass Quiz V6/#7. $23.95 
V5/#9. $23.95 Ex () Executive Card File 
Hi-Res Houdini V6/#8. $29.95 
V5/#10. $29.95 bY [) Dynamic Functions 
Double Hi-Res Palette V6/#8. $23.95 
V5/#10. $23.95 oc [) Nibble Desk Calendar 
Coupman V6/#9. $29.95 
V5/#11. $29.95 AD ASCII.DUMP 
Crosswind V6/#9. $23.95 
V5/#11. $23.95 wm () Nibble MeterMan 
Stock Analyst V6/#10. $29.95 
V5/#12. $29.95 PN () Nibble Planetarium 


V6/#10. $23.95 


Complete product descrip- 
tions begin on page 148. 


Zip 


The disks below are listed TU ) Turtle Graphics pS C Designer 
according to the first program V3/#1. $29.95 V4/#3. $29.95 
on the disk. Each disk con- TT Apple Turtle Graphics oy OO Polnters 
tains multiple programs; for Tutor V4/#3. $24.95 
complete descriptions see V3/#1. $23.95 RA RAM Manager 
the catalog preceding this sc Scramble V4/#4. $29.95 
order form. V3/#1. $19.95 FL © Fly Away 
ML Nibble MLE V4/#4. $23.95 
, V3/#2. $29.95 orn CO Oracle 
TR I 
= ae ee st [© Apple Slugger V4/#5. $29.95 
SA OO Star Attack woln2: 19:99 RP (©) RAM Pad 
: wae aaa BN Apple Bond Manager V4/#5. $23.95 
TG (| Apple Tough VSi#3. $29.95 PG Nibble Programmer 
~ VA/#3, $24.95 AM () Amperspeed V4/#6. $29.95 
= ee V3/#3. $22.95 wo O Wordfind 
FW F.A.S.T ] 
V1/#4, $24.95 mc |. Micro-Calc V4/#6. $23.95 
S ae, V3/#4. $29.95 T.U.N.E.S 
p2 () PIP Il TN .U.N.E. 
V1/#6. $29.95 AB Abacus V4/#7. $29.95 
] : V3/#4. $22.95 FR [) Fill-Reverse 
Ac C) Apple A.I.M. 
V1/#7. $28.95 AL A.L.E. V4/#7. $23.95 
5 the V3/#5. $29.95 RD () RAM Disk 
wo [) Will 'O The Wisp 
V1/#8. $19.95 pp | DDT V4/#8, $29.95 
CH () Apple Cham Vain. $22:05 MU (| Munchies 
: Voie $28 95 AR A.R.C. V4/#8. $23.95 
oO Retr V3/#6. $29.95 Dl Nibble Diner 
mR C) Music Retrieval — 
V2/#2. $19.95 BC Binary Clock V5/#1. $29.95 
PB ( Apple Paintbox ViSlEG: 822.98 Mx () MX-80 Plotter 
V2/#3. $24.95 AP AMP-L-SOFT V5/#1. $23.95 
st © Apple Star System EINE 329:90 AE () Applesoft Expander 
V2/#4. $29.95 SH |) Shape V5/#2. $29.95 
0 , V3I#7. $23.95 Fc () Flashcard 
DM ( Apple Disk Master a 
V2/#5. $29.95 RB Recipe Box V5/#2. $24.95 
g VSi#8. $29.95 8R © Nibble Broker 
MA () Apple M.A.P.S. — 
V2/#6. $29.95 FT Fat Graph V5/#3. $29.95 
DA () Apple Dart V3/#8. $23.95 ks © Killer Shape Tables 
~ V2/#7. $29.95 LB Disk Librarian V5/#3. $23.95 
Fi (©) Financier Ill MANE 92008 BA [| Basic Assembler 
V2/#7. $19.95 IR LR.S. V5/#4. $29.95 
ts 0 TRAC “B” VAUPL. S29105 MH OC Monster Hunt 
V2/#8, $29.95 V Investor V5/#4. $23.95 
Hx () Hex - , Naig2; $28:85 KY ©) Keysoft 
- vaite $19.95 FO [ CHAMP-R V5/#5. $29.95 
ies V4/#2. $23.95 
Please send me the products I have checked. 
| am paying by: 7 —— 
(j Check (3 Money Order VISA “ MasterCard 
Address 
Card # Exp. 
P City 
Signature — 
(ALL PRICES PLUS SHIPPING) Telephone 
U.S. Shipments please add $1.50 for shipping and handling. Outside U.S. add $2.50 for the first 
disk ordered and $1.00 for each additional disk ordered. MA residents add 5% Sales Tax. NOTE: 
Disk updates require return of orginal Nibble diskette. Add shipping and handling. 
9 9 
Payable in U.S. funds only. 
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Mail this order form to: 


nibble 45 winthrop st., Concord, MA 01742 
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RATES AND DEADLINES 


PAYMENT 
1x Rate: Five line minimum at $67.50. 
$45.00 per line up to 10 lines. 
3x Rate: Five line minimum at $62.50. 
$42.50 per line up to 10 lines. 


All additional full or partial lines at 
$17.50 each. 


All ad placement requires prepayment 
in full with the issue of first insertion. 


Regular lines consist of 50 characters/ 
spaces. Bold lines consist of 40 charac- 
ters/spaces. Please be sure to indicate 
those sentences you wish to be printed 
in bold, Due to variances of type as pub- 
lished, your ad may vary in line count 
from your typed copy. Name, address 
and phone number are not tallied in the 
count, unless they are centered and/or on 
separate lines. Please indicate in which 
category you would like your ad to 
appear, 


DEADLINES 

Typed copy and prepayment for all 
ad insertions must be submitted by the 
40th of the second month prior to cover 
date, e.g. January 40th for the March 
issue. All ads received after deadline will 
be held for the next issue. No verbal reser- 
vations are accepted. Nibble reserves 
the right to reject any advertisement 
deemed unacceptable for its readership. 


To run your ad in nibbLEADS send your 
prepayment and copy, or address further 
questions to: Classified Ad Department, 
nibbLEADS, 45 Winthrop Street, Concord, 
MA 01742, (617) 3741-41660. 
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SOFTWARE 
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INTERNATIONAL COMPATIBLES 

Supporting Il, Il+, FRANKLIN, & ALL COMPATIBLE users, 
with a monthly newsletter, public domain library & per- 
sonal attention. Membership $20 a year. Disks: $12 
DS/DD, $27 3M SS/DD. Public Domain Samplers, $23 per 
7 disk set (3M $32), Sets: Games, Eamon, Utilities, Music, 
Education, CP/M, Pascal, Business, Graphics, & Religion. 
Franklin Users Group International, 64 East Wind, Suite 
L, Tecumseh, MO 65760. 


DOWNLOAD CUSTOM CHARACTERS FAST! 

TO YOUR APPLE DMP OR IMAGEWRITER 
Here's the answer you've been looking for. Complete 
step-by-step instructions, examples, program listings, 
worksheets. Everything you need to download custom 
characters, Includes program codes for 5 fonts: Italics, 
Scientific, Greek, Script, and Astronomy — plus Printer 
Graphics instructions and Apple printer Utilities. This one 
really works! 

Custom Characters & Graphics Book $19.95 
Manual PLUS Menu-Driven DOS 3.3 software $37.50. Add 
$2.00 for First-Class Postage. Write for info. TIMBERLINE 
PRESS, INC., PO. BOX 211326, Denver, CO 80224, (303) 
429-4053, 


APPLE — IBM BISYNC COMMUNICATION 
Transfer files to/from Apple IV/lle & IBM mainframe POWER, 
JES, etc. + self contained editor, etc. with APPLE-BISYNC 
3780 RJE Workstation Emulation. Also 3270 Terminal 
Emulation. URGEO SOFTWARE, Inc. PO. Box 305, Cheney, 
WA 99004 (509) 838-6058. 


> >Prolmage: an Animation system < < 
Amenu driven interactive system for adding full screen 
smooth flowing professional quality animations to BASIC 
or machine language programs. Easy to learn and use. 
Specify DOS 3.3 or ProDOS when ordering. Send $34.95 
to Interactive Arts, 2715 Porter St., Soquel, CA 95073, (408) 
475-7047. 


APPLE PASCAL USERS 

“MONITOR ($49) Pop-up monitor has calculator, key 
macros, notepad, print screen, filter, assembly and 
more. “EDIT ($39), faster and more versatile than system 
editor, Applewriter or ASE. *STAT ($99) has regressions, 
ANOVAs, eigenvalues, matrix algebra, principle com- 
ponents, nonparametrics. *UTIL ($39) has program print, 
disk manager, decompile/debug. dogStar Software, 
Box 302, Bloomington, IN 47402, 812/333-5616. 
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GRAPHICS 
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FLOWCHARTING MADE EASY 
Create, edit and print full page flowcharts with CHARTS 
UNLIMITED. Flowchart objects are provided or create 
your own. Fast graphics and easy to use. FREE brochure. 
Works on Apple Il series. Only $195.00. Money-back 
guarantee. Call or write Graphware, Inc., PO Box 373, 
Middletown, OH 45042, (513) 424-6733 


PRODUCE LARGE ORGANIZATION CHARTS 
Need more than one screen to draw your organization 
chart? Then you need CHARTS UNLIMITED. Graphics 
area equivalent to 12 hi-res screens. Used by Fortune 
500 companies. Supports most printers & plotters and 
the Apple II series. Call or write Graphware, Inc., PO Box 
373, Middletown, OH 45042, (513) 424-6733. 


ll+ CAD 

Comprehensive, menu-oriented, graphics program for 
students and engineers. lsometrics, wire frames, archi- 
tectural, etc. Rectilinear and polar lines, circles, tri- 
angles, rectangles, ellipses (plain, solid, dashed, 
rotated), arcs, arrows, cursor draw erase/fill, load, save, 
any size text. With coord. graph pad and Molecule 
Draw program, For Il+, lle, llc, Ill. $29.95 + $2.00 #h. AZ 
res.+ 6%. CADSOFT, PO. Box 1798, Cottonwood, Arizona 
86326. 


CUCU CCC UCU CCC CCC 


UTILITIES 


UECDUOUELDUADDAAAEUDADRUAAAEOLOSOUAAEDUEGEUUOAETAECEUTAEDEAUESEEUEET EOE EEOU UE EET EET ETE 


The TURBO Assembler — your dream come true: A 
powerful 6502/65C02 $49.95 assembler, 5 to 100 times 
faster than anything you've used before, combined with 
a superb word-processor like editor to make your pro- 
gramming quick, easy, and enjoyable. $5 for demo disk 
with documentation. Write: TURBOSOFT, 28 Stratford Rd., 
Montreal, Canada H3X 3C5. 


Send for free list of programs. When 

Uncle Truck isnt working on the farm, he writes utilities 
and games for us cousins. Cousin Hector, the Marine, 
tests them, and cousin Harlow, who doesnt talk, docu- 
ments them. Write to Uncle Truck’s Software Tool & Die, 
PO Box 2437, Fullerton, CA 92633. 


HACKERMAN STAN™ AND 

HIS AMPERSAND BAND™ 
Create high quality programs, quickly with this combi- 
nation program-generator and BASIC commands 
extension (WINDOW’s, user-defined INPUT, desk acces- 
sory calculator, more). 128K //e, //e enhanced, or //c. 
$39.95 (+$2 S&H) price includes FREE sub. to CBBS-free 
software on-line! Check/MO-Coppersoft Solutions, 1542 
Atlantic/PO. Box 404, Hancock, MI 49930, (906) 482-8160. 


APPLE DMP & IMAGEWRITER USERS 
PRINTER PROBLEMS? 

Heres the book you've been waiting for. How to program 
your Apple dot matrix printer. NEW 100-page manual 
gives all printer commands in Applesoft BASIC. Great 
for beginners. Detailed instructions, examples, and glos- 
sary, plus 18 ready-to-run programs. $9.95 ppd. Money- 
back guarantee. FREE INFO. write: “PRINTER MANUAL", 
TIMBERLINE PRESS, INC., PO. Box 211326, Denver, CO 
80221 (303) 429-4053. 


STOOL CUCU CSO CC LLCO 


SUPPLIES/ACCESSORIES 


UULLUCANEREELETEUUAUAEEOEETEUAUUEEEEEOOE UU OUEEOOUERDUEAUEEOEUDEOU AG OUOEAOOEROOGOENORRDDOOOONOEONOHHOLY 


DISK SALE! —SS/DD 35-track for Apple w/sleeve & label- 
10/$5.80, bulk-00/$45. Standard SS/DD w/sleeve & label- 
10/$7.50, bulk-400/$59. DS/DD w/sleeve & label-10/$8.50, 
bulk-100/S67, PREMIUM QUALITY, LIFETIME WARRANTY! 
Money back satisfaction guarantee! Min order, $20. 
Send check or pay by MC/VISA/AE. $3 shipping, + $2 
if cod. Unitech, 20 Hurley St, Cambridge, MA 02141, 
(800) 343-0472, in MA (617) 864-8324. 


SAVE +++ DISKETTES +++ SAVE 
Disks listed are 5.25 18/2D, WABASH 14.50/10, 3M 17.00/10, 
BASF 14.50/10, BONUS 12.00/10, POLAROID 18.50/10. Also 
available are other disks, ribbons, software, surge pro- 
tectors, labels etc. 1.50 S/H. KODIAK ASSOCIATES, PO Box 
2734, Decatur, AL 35601. 


TUVUUUREERROOUUAUAOEEEEODODOUUOUUECEDEEDEDUDURGGGEOCODELOLDOOUEOOEREUUEULEDUTEEOUUEEEUEEELOUOORERERREODEY 


HOME/PERSONAL 


SUUUCAEUADOOOERAAUAOOED DE EAO EAE 


HOUSECALL — Medical Encyclopedia 

An Apple today keeps the Doctor away. Apple |! up. 
250K database gives medical advice on 400 diagnosis 
accessed through symptoms or directly, Always ready 
for a “second opinion’. 3 disks. Special $39.95 + $3 s&h. 
(CO +3%). Orders: (800) 233-3556 or (303) 773-1237. 
Rocky Mountain Medical, PO. Box 4783, Englewood, CO 
80155. 


Vegetable garden planning program for your home 
computer. On screen layout and user controlled modi- 
fications. Completely customizable vegetable tables, 
Commodore 64 ($29.95), Apple Il+/lle/llc ($39.95), IBM 
PC/PCjr ($45.00). The Gardener's Assistant. Shannon Soft- 
ware Ltd, PO Box #6126, Falls Church, VA 22046, (703) 
573-9274 


SPEEDUP HOME ACCOUNTANT 

This package speeds up Home Accountant file proces- 
sing 4 to 60 times, searches up to 100 times faster, 
speeds up garbage collection 9 times. It also allows 
you to switch checkbooks/types with only one keystroke, 
prompts you when entering split transactions, records 
automatic transactions multiple times during the month, 
PLUS MORE. Dos 3.3 Home Accountant only. VISA/MC 
accepted. MONEYBACK GUARANTEE. Only $19.00 + 
$2.50 shipping/handling. SOFTWARE SOLUTIONS, 5516 
Merritt Circle, Edina, MN 55436. For orders only; 1-800- 
835-2246 Ext 134. 
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LOTTER BOSS Ill — The sensible system 
SUPERIOR lottery data management system. Includes: 
# generation, storage for: Lotto/3/4 digit winners. File 
editor, Screen dumps/Print-outs, Random field creator. 
On-screen tote boards: track, sort, tally compile & show 
status of data. Sort by occurrence, sift data for pairs/ 
combos/etc. Menu driven & more. Il+ ec: $24.95 + $1.50 
vh. (ck/mo/visa/mc) Pa+6% 3 versions:A,BC:Lotto 41- 
40,44,48. Please specify WALTER COMPUTER SERVICES, 
Box 97 Dept. NJ, Paradise, PA 17562 or call (717) 
768-3006. 


ee* GENIE THE LOTTERY SPIRIT +++ 
Modify 3/4&6 digit numbers, Translate any word or 
Phrase into numbers, Scramble numbers, & File num- 
bers. Applesoft programming. Send a check or money 
order for $21.95 to EPSOMIC, 470 Irwin, Pontiac, MI 
48053, 313-391-4297. Michigan residents add 4% for 
sales tax 


COU 


GAMES 


TC 


DUNGEONS! 

Special price on two popular text adventure games! 
For a limited time only MAROONED and ABDUCTED nor- 
mally $39.95 ea. will sell for $43.95 ea. plus $1.50 for 
shipping. MAROONED begins deep in a dark dungeon 
and is filled with puzzles and chilling encounters with 
the inhabitants of this strange land. ABDUCTED is the 
sequel that takes you deep into Space to the mysteri- 
ous planet of Albion. For Apple |l+, lle, and lic only. 
VisionS, 610 West Alkaline Springs, Vandalia, Ohio 
45377 


ADVENTURE SOLVES 4$ EACH; 8 FOR 5$! 
INFOCOM-Zorks thru Cutthroats, SIERRA Hi-Res 0-6, 
Transy!, Quest, Cov Mirror, SAGAs 1-42, Mask Sun, Serp 
Star, all SIRIUS, Sherwood, Masq, Death Carib, Hulk, Ult 
4-3 (hints), many more. Full listSASE THEODORE CHEN, Box 
37129-GT, Atlanta, GA 30332 


A DAY AT THE RACETRACK 

Realistic simulation of horse-race handicapping. Data- 
base of over 100 horses is continually updated to pro- 
vide ever-changing statistics. Over 100 performance 
elements per horse on 2 disks. Over a dozen different 
research and summary screens, allows 7 different types 
of bets. Animated HiRes race segments. Runs on any 
Apple || with 64K and one disk drive. Send $24.95 (check 
or MQ) to: GERHARDT SOFTWARE, 32600 Concord Dept 
401, Madison Heights, M! 48074, (313) 589-3049 


THE LOST ARK OF THE COVENANT 

An all new machine-language Hires adventure for the 
Apple l|l+/e/c with one disk drive. This two-diskette 
adventure contains over 150 Hires images created with 
Penguin Software's Graphic Magician. In your quest for 
the Lost Ark, you will explore a bizarre world full of wild 
beasts, tricks, traps and riddles. $19.95 (add $2 for hint 
sheets). ORDERS ARE SHIPPED IMMEDIATELY. Send check 
or M/O to: MICROSCAN, 1384 Lyon Pi/Dept N, Wantagh, 
NY 11793, (516) 826-5807 


SUPER STAR TREK 

You've seen it on mainframes! All the thrills of the origi- 
nal Star Trek plus: Romulans equipped with cloaking 
devices, Klingon Commanders with tractor beams, de- 
fend starbases, launch probes, orbit planets, mine dili- 
thium crystals, five play levels and more! Not copy 
protected! Only $19.95. SoftTrek Enterprises, 3646 Field- 
crest Dr., Dept. NB Garland, TX 75042 


COC CCC 


HARDWARE 


CCC eee 


Apple /ic CP/M Plus System 
THE BEST Apple CP/M system ever runs on Apple //c. The 
fastest clock, Z80H runs at 8MHz! The most powerful 
operating system, CP/M Plus by Digital Research, is in- 
cluded. Features 128K bank switched RAM, 12K printer 
spooler, keyboard buffer, mouse support, screen dump, 
auto login, HELP. DATE, and DEVICE. Compatible with 
thousands of free programs, no configuration required. 
$239. Precision Software, 6514 North Fresno Street, Mil- 
waukee, Wisconsin 53224, (414) 353-1666 
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AppleWorks $489! Apple lic with monitor and stand 
$799! Apple lic with color monitor and stand $999! 
Apple monitor II $119! Imagewriter | $499! MUCH MORE! 
Call or send for catalog 4A for details and latest prices! 
DISCOUNT COMPUTER ACCESSORIES, 445 NORTH PINE 
REEDSBURG, WI 53959, 608-524-2429 


SERIAL TO PARALLEL FOR THE //C 

* x BUFFERED PRODUCTS * * 
USE PARALLEL PRINTERS WITH YOUR APPLE IC. ELIMINATE 
PRINTER DELAYS WITH OUR BUFFERED UNITS FOR SERIAL 
OR PARALLEL PRINTERS. UP TO 256K BYTES OF BUFFERING. 
CUSTOM DESIGNS AVAILABLE. PRICES START AT $79.95 
TECHNOLOGIC SYSTEMS, PO. BOX 44, RAYMOND, OH 
43067, 614/890-6960 


Prowriter™ — C. Itoh™ Printer Upgrade 

Add Correspondence Quality to your 8510 / 1550. Our 
ROM replaces proportional font with no loss of speed 
DIP switch or escape sequence selectable. SASE for print 
samples & installation terms. $40 for ROM & installation 
instructions, $45 New Style Prowriter with solid metal bot- 
tom cover plate. NY residents + 7%. Dealer inquiries in- 
vited. House Of Hardware, R.D. #1 Box 227, Burdett, NY 
14818 


APPLE PERIPHERALS FACTORY DIRECT! 
64K/80 Column Bd FOR Ile $39. Joystick Ii/lle/lic $415 
AIPORT game I/O $15. Paddles PR $15. Cooling Fan 
w/surg prot. $25. Mouse w/software li/lle $49. TV Modu- 
lator $11. Add $3.00 shipping. COD +$2.75 Write/Call 
for comp. list. NEXO DISTRIBUTION, 8824 Golf Drive, Spring 
Valley. CA 92077, (619) 589-7928 


Cee 


BUSINESS 


OCT 


Personal Computer Owners 

CAN EARN $4000 to $5000 
monthly selling simple services performed by their com- 
puter. Work at home in spare time. Get free list of 100 
best services to offer. Write: C.l.L.C.I.. PO. Box 60369, San 
Diego, CA 92106-8369 


CUCU eee eee 


EDUCATION 


SOL 


CHEM-WHIZ! for all chemistry students. 
Includes interactive periodic table and the first 
MOLECULAR WEIGHT CALCULATOR! Finds molecular wt 
of ANY molecule! Menu-driven. On-screen helps. Very 
user-friendly. Unprotected. Send $15.00 to TRANS-SYSTEM 
ENTERPRISES, PO. Box 32, Eagle, Alaska 99738 (907) 
547-2273. 


VOTE 


““GRAB BAG”’ 


SOC 


NEED TO LEARN BASIC? 
TEACHING BASIC? 

THEN THIS IS FOR YOU! 
The BASIC learning Programs manual contains over 90 
simple programs that teach fundamental concepts. 
Each lesson includes program listing. sample run, 
explanation and exercises. Effective for self-instruction 
or suitable as workbook or text for classroom use. In use 
nationwide by individuals, high schools, vocational 
schools and colleges. Versions available for IBM PC, 
Apple || family and TRS-80. Diskette available contain- 
ing all programs in manual; may be copied for class- 
room use. Prices: Manual $8, diskette $25, including 
shipping. Please send your order to: Academic Com- 
puting Center, University of Wisconsin-River Falls, River 
Falls, WI 54022, (715) 425-3583 


APPLE /// IS FOR ME 

We have formed a central clearing house to pool 
Apple /// software and hardware so that you, the 
devoted Apple /// User, can conveniently locate 
needed products. All items are sold at substantial dis- 
counts. To order current available product list send three 
dollars to: Association of Independent Microdealers 
(AIM), 3010 N. Sterling Av., Peoria, IL 61604. 


AIM — APPLE II USERS GUIDE 

This 300 page guide includes thousands of items for the 
Apple lle-lic computers which have been endorsed by 
the Association of Independent Microdealers (AIM). A 
detail listing of each product, manufacturer directory, 
association member directory, coupon section offering 
super values, handy index-price list, and several fun 
projects are included. This reference is updated regu- 
larly to insure current, up-to-date product listings. The 
guide is available individually for $16.95 or on a sub- 
scription basis for $75.00 for 12 full issues. To purchase 
the guide see your local AIM MEMBER or write: Associ- 
ation of Independent Microdealers, 3010 N. Sterling Av., 
Peoria, IL 61604 


+++ $1000.00 REWARD --- 
TO THE FIRST TO SOLVE MY PUZZLE 
APPLE Il+, E ORC 
HURRY AND AIRMAIL $25 TO PUZZLESOFT, 
BOX B82, HUDDERSFIELD UK, HD1 4XF 


PROFESSIONALLY PRINTED 
5 x 1% inch label and quick reference guide set for 
APPLEWORKS, PRINT SHOP, CAPTAIN GOODNIGHT, COPY 
ll+ and many more. Send $2.50 per set and .50 for ship- 
ping per order, money order or check only. To LABELS 
UNLIMITED, PO. BOX 2338, DAVENPORT, IOWA 52804, (319) 
322-8555 for list 


APPLE CP/M Public Domain 
UG Software Rental: CP/M UG Vol. 1-92 $45.00, SIG/M 
UG Vol. 1-230 $135.00, PICONET Vol. 1-34 $25.00, Pascal- 
Z UG Vol. 1-27 $25.00, UG Games 20 Vols of the best 
ones $25.00, UG Modem 20 Vols. of the best $25.00, UG 
Business 20 Vols. of the best $25.00, UG Utilities 10 Vols 
of the best $25.00. Rental is for 7 days after receipt with 
3 more days grace for return. Credit cards accepted 
(preferred). Down-loading-disk format conversions. Call 
Soon! Apple DOS and MAC Librarys on Rent. 619-727- 
1015 24 hrs. 619-941-0925 info. PJ's National Public 
Domain Software Center, 1533 Avohill, Vista, CA 92083 


SAVE 30% or more on Apple and Mac software. Write 
for a Free catalog. Please specify your computer type. 
Canoga 


Delsons Catalog Offer, 19801 Vanowen St., 
Park, CA 91306, 818-887-5260 


TUUEOUUUUEUUUOEOOGUETUUOEO eaten eONEN 


NIBBLE LISTS 


From time to time NIBBLE 
Magazine makes its subscriber 
“mailing list available to reputable 
software and hardware manufac- 
turers who wish to provide our 
readers with flyers, catalogs or 
other material of interest. All 
mailings are evaluated by 
NIBBLE Magazine to ensure the 
integrity and suitability of the 
material. Our policy forbids tele- 
phone or other direct solicitation 
by these firms, but does release 
your NIBBLE mailing label to 
them for their one-time use. 

If you would prefer not to re- 
ceive these mailings please send 
us a recent mailing label from 
the front of your magazine or 
copy the label exactly as it ap- 
pears. Please send the label with 
a brief note directing us not to 
make your name available, and 
we will code your name for 
exclusion. 


How to 
Renew your 


nibble 


Subscription 


Your NIBBLE Mailing Label contains important 
information for renewing your subscription. 


A B 
John Smith 0.111.C 8/86 
Anywhere St. 
Anytown USA 11111 


A Your SUBSCRIPTION REFERENCE NUN- 
BER should be included with your Renewal to 
assure rapid processing. 


B Issue number and year with which your 
subscription will expire; your last issue will be 


delivered the month before this date. We 
must receive your renewal at least two months 
before this date in order for your subscription 
to continue unbroken. 


Renew now and save $12.00 off the cover price! 


(Use this coupon or the convenient ORDER 
CARD in this issue). 


Please Enter My NIBBLE Renewal For: 

12 Issues at $26.95 (U.S. only). 24 Issues at $49.95 (U.S. only). 
36 Issues at $69.95 (U.S. only). 

Check/MO Enclosed Bill my OVISA MasterCard 
Bill me (U.S. only). 

’'m an |AC member. Please renew my subscription and member- 
ship. I’ve enclosed my payment of $30.00 (U.S. only). 

| use the following computer(s): ClApple // Family Macintosh 


Name Ref. # 


Address 


City 


Card# 
PLEASE PRINT CLEARLY 


Signature 
12 issue subscription rates: 


U.S. Air Mail — $51.95 Mail To: NIBBLE 


Canada Surface — $34.95 ; 
Canada Air Mail — $59.95 45 Winthrop St. 
Foreign Surface — $39.95 Concord, MA 01742 


Foreign Air Mail — $89.95 


Six Years of Nibble 
At Your Fingertips 


THE NIBBLE INDEX 


The Nibble Index is the reader's quide 
to everything that has been published 
in Nibble from 1980 to 1985, on disk! It 
covers articles, letters, and errata with 
more than 41,000 entries! 


Highlights: 
e¢ Fast machine language search 

Search on any keyword to find an author, 
title, or subject 
Send search results fo the screen or printer 
Utilities let you print out all data sorted by 
title or author and convert data to text file 
format for use in your word processor 
Also includes data in AppleWorks database 
format* 


Now you can track your favorite author. . . find 
useful utilities...frace the enhancements to 
your favorite program. . .just about everything! 


Whether you’re a newcomer to Nibble or a long- 
time reader, the Nibble Index will make “Nibbl- 
ing’ a whole fot easier! 


*To use this data you must have AppleWorks and 128K. 


To order fill out the attached 
coupon or call 617-371-1660. 


| want the Nibble Index! Here’s my $14.95 
Check, M.O. Postpaid 


(Payable in U.S. funds only; Mass. residents add 5% sales tax) 


Name 
Address 
MasterCard Visa 
Signature Tel. # 
Charge Card # Exp. Date 
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ONE-LINER AND 
'TWO-LINER WINNERS 
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This one-liner by Andrea Sigurdson of 
Sydney, BC, Canada is a cute way to dis- 
play a message. Just follow the arrow as it 
points to each letter. To program your own 
message, replace the DATA elements at the 
end of the line with your own values. A is 
represented by 1, Z by 26, and the separa- 
tion between words by 33. Then change the 
FOR A statement to the total number of 
DATA elements. 


5 HOME PRINT "WATCH THE 
ARROW SPELL A MESSAG 
E": VTAB 8: PRINT "AB 
CDEFGHI JKLMNOPQRSTUVW 
XYZ NEW WORD": FOR A = 
1 TO 31: VTAB 9: READ 
H: HTAB H: PRINT "A"; 

FOR C = 1 TO 2008: NEXT 
C: HTAB H: PRINT " " 

NEXT A: DATA 26,1,1 
1,5,33),1,33;,14,952)2. 
P29 39415 7693;1;14, 
33,,1,16,16,12,5,33; 28 
94,1425 


With this DOS 3.3 utility by Eric Snyder 
of Bloomington, MN, you can display the 
disk catalog and then choose from a menu 
of ten DOS commands. The program then 
asks for the file name and executes the com- 
mand. For the commands PR# and IN#, 
enter the slot number when the file name is 
requested. 


2 PRINT CHR$ (4); "CATALO 
G": RESTORE FOR A = 
1 TO 18: READ C$(A): NEXT 
A: FOR A = 1 TO 18: PRINT 


A;"=";C$(A): NEXT A: PRINT 
"11=CATALOG": INPUT " 
CHOICE? ";A: ON (A < 

1 OR A > 18) GOTO 2: INPUT 
"FILE? ";B$: PRINT CHR$ 
(4) ;C$(A);"_ "; BS: DATA 


LOAD , BLOAD , RUN, BRUN , U 
NLOCK , LOCK , DELETE, VER 
IFY,PR#, IN# 


Here’s a DOS 3.3 utility that modifies the 
CATALOG command. When you execute 
the CATALOG command, the program asks 
for the file type (A, B, I, R, S, T or =), 
and then lists only that type of file. Thanks 
to Michiel Berger of Den Burg Texel, 
Holland. 


1 D$ = CHR$ (4): PRINT DS 
"OPENCAT": PRINT DS"W 


RITECAT": PRINT "CALL 
-151": PRINT "“ADAF:8 
BD B9 N ADB9:28 C FD 
85 8 28 ED FD 20 2F A 
E 20 2F AE EA EA N AD 
DD:4C E8 AD N ADF6: 208 
B8 B6 N B6B8:B9 A7 B 
3 C5 89 DO 1 6@ AA BC 
9 BD F@ 6 BY A7 B3 4C 
25 AE B9 A7 B3 68" 

2 PRINT "B3B@:BA C5 D® DI 
D4 C5 CC C9 C6": PRINT 


"3D9G": PRINT D$"CLOS 
ECAT": PRINT D$"EXECC 
AT" 


Gene Masse of Belchertown, MA sent us 
an eye-catcher — his two-liner simulates the 
motion of a bouncing ball. When you run 
it, a ball bounces up and down on the Hi- 
Res screen until it comes to rest. 


1 FOR G = 24576 TO 24582: 
READ R: POKE G,R: NEXT 
POKE 232,@: POKE 23 


3,96:X = 148:Y = O:M = 
@: HGR2 SCALE= 2: ROT= 
6: FOR G = 1 TO 188: HCOLOR= 


3: DRAW 1 AT X,Y: IF 
Y > 188 THEN M= -M 

2 DRAW 1 AT X,Y:M=M + 2 

HCOLOR= @: DRAW 1 AT 

X,¥:¥ = Y + M: FOR P = 
1 TO 20: NEXT P,G: HCOLOR= 
3: DRAW 1 AT X,Y: DATA 
Lae4 453439) 


Many variations on John Conway’s game 
of Life have been created. In this two-liner 
version by William K. Richards of Marti- 
nez, CA, each dot represents a living cell. 
If a living cell is surrounded by two or three 
living cells, it survives to the next genera- 
tion. A dead cell comes to life when it is 
surrounded by three living cells. This Hi- 
Res version is seeded by an r-shaped pento- 
mino pattern. Just BRUN LIFE or BLOAD 
LIFE and CALL 4096. 

To seed it with your own starting pattern, 
start by performing HGR and HGR2. Then 
POKE the location of each living cell into 
memory using the formula: 


POKE X « 256 + 8192 + 128 + Y, 255 


where X and Y are the screen coordinates 
in the range 1-38. CALL 4119 to start the 
manually seeded version. To key in the pro- 
gram, enter the Monitor with CALL —151, 


type in the hex code, and save it with the 
command: 


BSAVE LIFE,A$1000,L$B0 


1920- 28 D8 F3 20 E2 F3 AQ FF 
1988- 8D 95 34 8D 95 35 8D 96 
1818- 34 8D 96 33 8D 97 34 AD 
1818- 58 C@ AD 54 CB AD 56 CB 
1828- 28 36 F8 AO BB 85 B6 AY 
1928- 88 85 O98 A2 27 86 EB AD 
1938- 27 84 EC AS EB 18 69 29 
1038- 85 87 85 89 A4 EC Bl 88 
1848- 85 38 29 G1 91 O6 A4 EB 
1848- A5 EC 28 98 F8 C6 EC DO 
1958- EB C6 EB D@ DA A2 27 86 
1958- EB A® 27 84 EC AS EB 18 
1860- 69 28 85 87 85 B9 A4 EC 
1968- AY BB 18 71 G6 C8 71 6 
1078- C6 87 71 G6 88 71 B6 88 
1878- 71 96 E6 87 71 B6 E6 G7 
1988- 71 86 C8 71 96 C8 71 26 
1088- 88 C6 97 C9 B3 FB BE C9 
1998- 04 FO B6 AD BH 91 BB FO 
1998- 88 Bl 96 FO F6 AY FF 91 
1QAG- G8 C6 EC DO Cl AB 27 84 
19A8- EC C6 EB D® BO 4C 2B 108 


TYPING TIPS 

Here are a few tips for typing in one-liners and 
two-liners. Be sure to omit spaces when typing 
in Applesoft programs, unless the spaces appear 
in strings between quotes, or in REM or DATA 
statements. You'll find it easier (and often essen- 
tial) to substitute the question mark (?) for the 
PRINT statement. And when typing in machine 
language programs, it’s safe to type in just the 
second digit of a hexadecimal pair if the first digit 
is a zero, e.g., the hex pair 03 can be typed in 
simply as 3. For more information on typing in 
programs, see ‘‘A Welcome to New Nibble Read- 
ers’’ at the beginning of this issue. 


THE GROUND RULES 

The One-Liner and Two-Liner Contests are on- 
going events with no deadlines. Several winners 
are chosen each month, and if you win, your prize 
will be the Nibble disk of your choice. The chal- 
lenge is for you to create the most interesting, 
attractive, useful, and/or clever program that can 
be typed using just one or two program lines. The 
lines must be enterable directly from the keyboard, 
without using a programming aid or line editor. 
Programs must be your own, original work, and 
may be written in Applesoft, machine language, 
or any of the languages available for the Macin- 
tosh. Programs must be submitted on disk, accom- 
panied by an 8 1/2 by 11 inch sheet of paper with 
your name, address, Nibble disk choice, and the 
words **One-Liner Contest’’ or ‘*Two-Liner Con- 
test." We're sorry, but we are unable to return 
your entry disk. All entries become the property 
of MicroSPARC, Inc. 
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Introducing the Most Powerful 
Business Software Ever! — 


TRS-80 * (Model I, II, III, or 16)* APPLE“ IBM** KAYPRO “* CP/M** COMMODORE 64“ 


es $99.95 

complete menu-driven accounts receivable, invoicing, and 
generating system. It keeps track of all information related to who 
money, and can provide automatic billing for past due ac- 
ints all necessary statements, invoices, and summary 
VERSALEDGER II™ and VERSAINVENTORY™. 


APAY! $99.95 
SA PAYABLES™ is designed to keep track of current and aged payables, keeping you 
touch with all information regarding how much money your company owes, and to 
whom. VERSAPAYABLES™ maintains a complete record on each vendor, prints checks, 
heck registers, vouchers, transaction reports, aged payables reports, vendor reports, 
_ and more. With VERSAPAYABLES™, you can even let your computer automatically select 
__ which vouchers are to be paid. 


VERSAPAYROLL™ 
VERSAPAYROLL™ is a powerful and sophisticated, but easy to use payroll system that 
keeps track of all government-required payroll information. Complete employee records 
are maintained, and all necessary payroll calculations are performed automatically, with 
totals displayed on screen for operator approval. A payroll can be run totally, automati- 
cally, or the operator can intervene to prevent a check from being printed, or to alter 
information on it. If desired, totals may be posted to the VERSALEDGER II™ system. 


VERSAINVENTORY™ $99.95 
VERSA INVENTORY™ is a complete inventory control system that gives you instant access 
to data on any item. VERSAINVENTORY™ keeps track of all information related to what 
items are in stock, out of stock, on backorder, etc., stores sales and pricing data, alerts 
you when an item falls below a preset reorder point, and allows you to enter and print 
invoices directly or to link with the VERSARECEIVABLES™ system. VERSAINVENTORY™ prints 
_all needed inventory listings, reports of items below reorder point, inventory value re- 
ports, period and year-to-date sales reports, price lists, inventory checklists, etc. 
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S“VERSABUSINESS' Series 


Each VERSABUSINESS module can be purchased and used independently, 
or can be linked in any combination to form a complete, coordinated business system. 


VERSA ——— 
LEDGER | 3 
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VERSALEDGER II™ $149.95 
VERSALEDGER II™ is a complete accounting system that grows as. aa business 
grows. VERSALEDGER II™ can be used as a simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software. 
© VERSALEDGER II™ gives you almost unlimited storage capacity 
(300 to 10,000 entries per month, depending on the system), 
@ stores all check and general ledger information forever, 
® prints tractor-feed checks, 
@ handles multiple checkbooks and general ledgers, 
@ prints 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 
listings, etc. 


VERSALEDGER II™ comes with a professionally-written 160 page manual de- 
signed for first-time users. The VERSALEDGER II™ manual will help you become 
quickly familiar with VeRSALEDGER II, using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 


SATISFACTION GUARANTEED! 


Every VERSABUSINESS™ module is guaranteed to outperform all other competitive systems, 
and at a fraction of their cost. If you are not satisfied with any VERSABUSINESS™ module, you 
may return it within 30 days for a refund. Manuals for any VERSABUSINESS™ module may be 
purchased for $25 each, credited toward a later purchase of that module 

All CP/M-based Computers must be equipped with Microsoft BASIC 

(MBASIC or BASIC-80) 


To Order: 
Write or call Toll-free (800) 431-2818 
(N.Y.S. residents call 914-425-1535) 
* add $3 for shipping in UPS areas * add $5 to CANADA or MEXICO 
* add $4 for C.O.D. or non-UPS areas ‘ * add proper postage elsewhere 


— £ 
DEALER INQUIRIES WELCOME 


All prices and specifications subject to change / Delivery subject to availability. 


* TRS-80 is a trademark of the Radio Shack Division of Tandy Corp. . *APPLE is a trademark of Apple Corp. . *IBMisa trademark of IBM Corp. . KAYPRO is a trademark of Kaypro Corp. 
h *CP/M is a trademark of Digital Research. . *COMMODRE 64 is a trademark of Commodore Corp. 


. eae Street Electronics’ 


panesce’ Busine ssCard 


Intelligent Multifunction Interface for the a 


BusinessCard Menu 
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Product Features: _ Cost Comparison 
» Serial printer port (parallel also avialable) IF PURCHASED 
SEPARATE BUSINESSCARD 
p> Modem port 
p Pro-DOS compatible clock/calendar with a battery . ase ae ore 
p Extensive built-in text and graphics commands Clock Card $149.95 ; Included 
(Includes selectable text size and style; graphic windowing and Screen Printing Program $ 49.95 Built-In 
f magnification) 
_ Total $479.80 $219.95 
» Supports new Apple color ImageWriter II printer 
p> Easy-to-use “Macintosh- like” pull-down menus Send for our brochure. 
(For selecting text and graphics features) 
» Prints double HI-RES color graphics a, Street Electronics Corporation 
Appleworks and Mouse compatible aL) Mark svenne 
aii P Carpinteria, CA 93013 
p Super Serial Card and Apple IIc compatible hardware (805) 684-4593 
design 
‘ ‘ Apple is a registered trademark of Apple Computer, Inc. 
> Optional print buffer ($79.95 for 64K) Macintosh is a trademark licensed to Apple Computer, Inc 
L ImageWriter is a trademark of Apple Computer, Inc. 
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